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Method for non-invasively measuring respiration 
voiume whereby weighting factors are non- 
invasively determined by (a) totaling delta values 
over a baseline period of substantially steady 
state breathing for obtaining a rib cage signal, (b) 
totaling delta values over a baseline period of 
substantially steady state breathing for obtaining 
an abdominal signal, (c) dividing the average 
variability of the mean of the total of the delta 
values for one of either the rib cage or abdomen 
signals by the average variability of the mean of 
the total of the delta values for the other of either 
the rib cage or abdomen signals; and (d) 
multiplying the other signal by the quotient 
derived from step (c). 
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.INSERT KJBCtfl 
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.&CTC9I SAvtCt 
.EXTERN MM. 
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STA 
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ITA 

sta 

JHP 



STA 
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STA 
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STA 
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UTFUfl 
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A.orrw 
8SEFUJ 
A.QFFH 
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.0<TRT O0CI,OK:.LQOCt 

.entry base 

.EXTERN RTOTMTflF.RTtCX 
.EXTERN 00CAL,3TST,AI«auT 



.EXTERN SRT!NIT,3RTP1.0T,EX£C 
• EXT EST* LABEL 
.EXTERN T0H6 

.EXTERN FTRlJPO.OETM.mjUJO 

I 
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FINIT 

\ 

; 
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OOC: 

I TKtSE' JUMPS ITU3T BE TKE 1ST THINGS J 
JHF 00C1 
JN» 0DC2 

JMF • UAL 
JMP LODCt 
J)1* 1S0V1 
JNF BASE 



XftA 
STA 

STA 
STA 



STA 

STA 
XRA 
STA 

jttr 



XRA 
OVA 
STA 
XftA 
STA 
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SSEFLG 

A t 8 

WTFU 

I30FL0 

ODCCOL 



BSEFLO 
A.flFFH 
UTFLO 
A 

ISOFLO 
OOCCOL 



OUAL/Lfl jOUALITATIWE 
A 

9SEFLQ 



I 
I 

,START THE data collection 

I 
1 



X?A 
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STA 


YALFLO 


STA 


POS1 


LXI 


H.O 






LXI 


H,a 


SKIO 


TIME 


LXI 


H,0 


SXLO 


mXCNT 


LOA 


BSEFLq 



iHQl III SINGLE position 

1 1 VALUES IN *Mt.UES 4 YUALCJES 



STA FLSHFLQ 
IF < .A, 1 5, ZERO) 

LXl H,T0PLFT»33 
LOA 6SJFLO 
IF < .A, 15.: £30) 
LOA ISOFLO 
IP <.A.IS,:tRQ) 
LXI D.CLBIiESS 
ELSE 

LXI- O.ISOIESS 
ENOIF 
ELSE 

LXI O.ftSEHESS 
ENOIF 

CALL LABEL 
IHJt A. 2 

STA FLSHFLG 



IP <^,!S,2EflO) jNOT COLLECTING BASELINE 
|i/UT THE TRANSOUCESCRS 
mi A. 10 
CALL SYST 

t THlS RESETS CAL5 TO t ANO I SO AFT EX THIS IS EXECUTED, ALL C 
r CALIBRATIONS ARE NULLIFIEO 

XRA A 

STA CALTYPE 

3TA USTCAL iS IGKT ttOJ INCAL8RATE0 
STA OOQDEASE [NO LONGER HAS GOOD BASELINE 



ELSE 



LXI 
LXI 
CALL 



H.7QPLFTOJ 
0. BLANKS 
LABEL 



If*. * 
ENOIF 



LOA 



CFLO 



CALL 
FPRN 
CALL 
ENOIF 



LPON 

RES.RESPT 
LPCFP 



SETUP 

SRTINIT {IHIT RT. PLOT 



SAT PLOT 



LOA 



BFLO 
IF <.A,tS,N2ER0> 
I UPDATE I OELTAS ANO ELAPSED TIME 
tVl A,3 
STA OPCOOE 
CALL ANSOUT 
SLSE 

ICM SECFLO 
IF < .«,:S,H2EJJ0J 

mi a,3 

STA . GPC006 



r OFFH THEN CLOCX 
ISTILL ON 
EXlTIfC.A,IS f 2W0) 
B<OL00P 

I 
I 

1 NCU DATA COLLECTION PHA5C MAS BEEN COMPLETED 
I MAXCNT HOLDS TUB NUMBER OF MAX POINTS COLLECTED 
I 

(tRSffJ USES CHANNEL SP8UFP FOR DETECT 1 CMS 
I SPmX HOLDS THE DELTAS FROfl SPSUFF 
I ROWX HOLDS THE DELTAS PROM RCBUPF 
| ABMAX HOLDS THE DELTAS FROM ABIUFF 
I 

1 CLEAR THE SCREEN 

CALL TUCN 
CALL TUOFF 



LOA BSEFLO 
IF <.A,1S,*ERQ> 
LOA I80FL0 
IF (J»,]S^ZERO> 
iMP I50CALC 



I THIS UAS AN ISCVCLUie MANUEVER 



ENOIF 
ENOIP 

LKLO MAXOCT 

LXI D.3 

ORA A 

OSBC 0 

IF <psu,13.ca*ry> 

LOA WTFLO 
IF (•A|(Si2ERQ) 
Nil A, I 

STA OPCODE |NOT 8IOUSH DELTAS 
CALL ANSOUT 
MJI A.O 

STA OPCODE jPRlNT MEW ON SCREEN 
CALL 
ENOIF 
ETC 
RET 
ENOIF 



I 

iTHERE ARE 2ICMAXCNT -l> FLOAT |H0 FT UALUES IN XU-LUES 
| ANO YUALUE9 FOR THIS RLW 
LHLO HAXCNT 

SHU NBERS | TOTAL I STORED 

CALL QOCAL 
1 RETURN UITH CARRY 1ST IP SAO FM ANY REASON 
I 

I 

| ORA A 
ftJ\ A,0 

| STA OPCODE J PRINT MENU ON SCREEN 
I CALL ANSOUT 
RET 

I 
1 
I 
I 



LXI 


H,l 


SHLO 


ROPT 


ENOIP 




■ ,™ 


0 


FSTA 


XSU1 


f STA 


YSU1 


FSTA 


XMUM 


FSTA 


XT SIM 


FSTA 


XCNT 


LOQPll 




CALL 


OETX 


CALL 


GETY 


CALL 


XTPAIR 


1 

LHLO 


ROPT 


LXI 


B.RSIZC 


CALL 


FTRUPD 


SHLO 


ROPT • 


osxz 


CNT.LOOJM 


I 

CALL 


LSTPIT 


PL DA 


SLOPS 


PASS 




FSTA 


ABCAL 


FFOA 


I 


FSTA 


RCCAL 


(PRINT IT ON SCREEN 


Ms/I 


A, 4 


STA 


OPCOOE 


CALL 


• ANSOUT 


1 

CALL 


SAUECL 


IP (PSU 


,IS«N CARRY) 



ISOCALCl 

LDA 

IF (.A,IS,N2ER0> j THEN 4Q0 PTS 

jfiATA PT 

LXI H.40Q 

SHLO CWT 

LHLO RIPT 

SHLO ROPT 
ELSE 

|TIME HOLDS I OF OATA POINTS ANO 1ST PT AT OFFSET - 0 
LHLO TIME ' 
SHLD CNT 



MV1 
STA 

tux 

STA 
XRA 
C*W 
STA 



iTKEN GOOD LWLUES 
A,3 fISOV QUAL 

CALTYP6 
A, OFFH 

LA8TCAL tOOOO CALIBRATION 
A 



RIPT PTS TO 1ST 



QUALFLG 
CALL LP CM 
CALL PRTI« 
PPRN ISU.ISVPT 
CALL LPQFP 
ORA A 
ENOIP 



RCCAL • -303 
A8CAL - 2M 

I SWT j .U0R0 SCWL , ABCAU 



LXI H.A98UFF 

LCEO ROPT 

C*0 0 

WW E.ft 

U« H 

raw o,n 

SOEO XUAL 

FILA XOAL 
FLQT 

F5TA XVWL 
RET 



CCTYi 



LXI* H.RCBUFF 

LOEO ROPT 

C*0 0 

nw e.rt 

troc h* 

MW 0,« 

50EO YVAL 

FILA TN»L 
PLOT 

FSTA YvJAL 



FLOA XVAL 

flob xsui 
woo 

FSTA XSUI 

FL08 YUAL 

floa TSUI 
FAOO 

FSTA YSU1 

FL08 XVAL 

FLOA XVAL 
FHUL 

FAOO 

FSTA- XXSUt 



FLO 8 XT J 111 
FAOO 

FSTA XYSLM 

FL09 XOfT 
FFOA 1 
FAOO 

FSTA XCNT 
RET 



FLOA XSU1 
FLD8 XSUI 

fnuu 

FPSH 

FLOA XCNT 

FLOa XXSUt 

FfUJL 

FSWP 

FPOP 

PSUB 
FPSH 

FLOA XSUI 
FLOfl TSUI 
FMUL 
FPSH 

FLOA XCNT 

FLD9 XTSUH 

FMUL 

FSUP 

FPOP 

fsub 

FSWP 
FPCP 
FOIV 

FSTA SLOPS 
RET 



00C2l 

JTHU CAN Sfi DONC ATTW EITHER A OOCi < CALTW& » 1/2) 

1 OR AFTER AN ISOVQLUtS (CALTYPE - 1/4) 

I 

|1F CALTYPE • 0, THEN HtVtft'T CALIBRATED TH€ ftt TO AB 



LOA CALTTPS 
IF I J*,I3,ZtRO) 

STA OPCODE 
CALL AW 5 OUT 
1ST 
CNDIF 

jhoj collect oata as ip validating 
call ualcol 

1 lhlo maxcnt 

LXI 0,2 
ORA A 
0S8C 0 

IF <PSU,IS,CARRY1 I THEN LESS THAN 2 BREATHS 

Wl A,l 

STA OPC006 
CALL ANSOUT 
Hit A,0 

STA OPCOOC (PRINT KWU OH SCREEN 
CALL ANSOUT . 
RET 
GOIF 

I 

pW F1H0 THE RATIOS OF 5LM/XNOM VOLLM6 

CALL VALFNO 
jRGTVRNI UITH AR£S-« OF VALUES USED IN SUmTtCN 
I 

FSTA FCNT 

i 
I 

|NCU XUALUE3 HOLDS ALL OF THE RATIOS, XSUI VOLDS SIM OF ALL XVALUES 
iXXStfl HOLS SU1 OF SQIMRCS OF ALL XVAUES, ANO FCNT HOLS THE NU18ER 
|0F VALUES USED IN THE SUT*TI0l 
I 

jCCIIFVTS THE HEAN RATIO 

aoa xsui 

FLOA FCNT 
FOIV 

FSTA HEAN 

||NOU KNCU THAT SU1 NEEDS .TO BE MULTIPLIED BY I /MEAN, SO 
» RCCAL ■ CURRENT RC CAIN <RCGNf) • l/n£AN 
| A8CAL • CURRENT AB GAIN (AIGNf ) • 1/ttEAN 



FFOA 


1 


FAT8 




FLOA 


MEAN 


FOIV 




■FLOS 


RCOMP 


FHUL 




FSTA 


RCCAL 


FFOA 


1 



FATS 

FLOA MEAN 
FOIV 

FLOS ACGSF 
FMUL 

FSTA A8CAL 

' NVt A, 4 

STA OPCODE 
CALL AN JOUT 

I 

CALL SAVECL 

IF <P5U,tS,HCARRY> | THEN 0000 

CALL LPCN 

CALL PRTIME 
- FPRN WU.WL2PT 

CALL LPOFF 

ur M,» 

SKLO NBIRS 

XRA A 

STA OUALFLG {NOT QUALITATIVE, IT IS OUWflTTATIVE CAL 

f 

I 

LQA CALTYPt 

IF (.A,LT,3> (THEN OOC METHOD 

tfJl A, 2 |N0U ITS QOC OUANT 

STA CAL TYPE 

MVI A.OFFH 

STA LASTCAL I CO 00 CAL 
ELSE 1 1 SOVOLLKC METHOD 

MU1 A t 4 

STA CALTYPE jNOT ITS ISOV QUWCT 
tfJl A, JFFH 
STA LASTCAL (GOOD CAL 
ENOIP 

1 
1 
I 

jNULT THE CUIWENT UM.UE OP VTLINIT BY 1/MEAN SO U ILL BE SCALIO OX 
| NOTE i VTLINIT 13 INITIALLY SET UHEN DOINO QOCI 

JTHIS IS FOR INITIALIZING THE HYPOPNEA VGLLMfi FOR THE 1ST 3 NINUTESl 
PLOD VTLiNIT 
PL OA MEAN 
FOIV 

FSTA VTLIMIT 

!»•««•••••••««•■••«•••••#•••••««•••.•«•••••.••••.•••••««.,, «•!•» 

iPROSLEMl UMAT IF 0(0 tSOVOLLME BEFORE HERE, THEN VTLIMIT VMS NOT 
i EVER 1NJTITALI2E0 7777 

•«••••#••••«•••••••■»•••«««•<«•■••• 

END IF 

I 



RET 

M 
I 

UL3i .ASCI 3 

OWNTITATIUE CAL FACTORS 
«C CAL - 303 
AB CM. - 301 



LXl 
SHLO 



H.XVALUES 
MCAflDOfl 



|UILL USE THIS BUFFER TO 
JHCA VALUES 



VL2PTl 



,UOat> RCCaL |A8CAt, 



jMOTEl MCA VALUES OP RCINUOL, A8INV0L, ANO SNVOL UILL 
BE STOREO SEMmiNO AT AOOR - XVALUES 
XVALUES ♦ YVALUIJ - MOO BYTES 
I UILL STORE UP TO 1300 SYTES 

— > 300 DELTAS ■ 250 IHSP DELTAS * i BYTES 

- 1300 ITTE3 
HCAAMH - AOORCIS Of NEXT Tq STORE 



srrwi 

Ithij is only used uhew cali grating ooc nethoo 

SETUP THE CLOCK 

SAMPLE AT tO FTS PEA SCC 
PUSH H 
IHIT REAL-TIME BUFFER POINTERS 
MODIFIED 0P-24-S1 
|FOR PEAK FLCUSt 

LXl H.OLTinei 
SHLO THFTR 
UI H,0 
SHLO TTP08 
SHLO TTNEG 
SHLO TEMPK 
SHU) TTPTh 
SHLO TTNTfl 

pirTDie 



SHLO 

LXl 
SHLO 
XRA 
STA 



H.O 

0LT1PTR jOFFSET TO STORE NEXT DELTA 
A 

OLTFULL jOCLTA RtHO BUFFER HOT FULL TIT 



LXl 


H,0 


SHLO 


SPTfMP 


XRA 


A 


STA 


FRnrcc 


LXl 


H.TMRUfP 


tfJl 


li,0 


IK* 


H 


NV1 


M,0 


MVl 


A, 2 


STA 


FLSHFLG 


XRA 


A 


STA 


WRAPF 


STA 


SECFL3 


Cm 




STA 


EFLO 


LXl 


H.O 


. SHLO 


ELPTM 


SHLO 


ELFtltN 


SHLO 


SECCNOS 


LXl 


H,0 


SHLO 


RIFT 


SHLO 1 


ROPT 


SHLO 


OORIPT 


LXl 


H.9 


SHLO 


TIME 


VARIABLES FOR PH 


XRA 


A 


STA 


rvws 


STA 


PTF 


STA 


SLQPEF 


XRA 


A 


STA 


1KTFL8 


cm 




STA 


OPLO 


LXl 




CALL 


RTON 



1 1 ST hAX NOT FQIHD 



I START BY LOOMIKO FOR MAX PT 
1 1N1T flAX HOT POIND 



i INDICATES CLOCK ON 



I TURN ON CLOCK 



I STOP DATA COLLECTION 
| TURN CLOCK OFF 



|THEN I MINUTE 



IMOPIFIEO 0r*24-fll 

1 CALL BTOf 

XRA A- 

STA OPLO 

POP 0 

POP H 

POP B 

POP PSU 
SET 

I 
I 
1 



I INTERRUPT SERVICE ROUT ire 



I TURN OFF CLOCK 



PUSH 


PSU 


PUSH 


1 


PUSH 


H 


PUSH 


0 


CALL 


RTICX 


LOA 


INT FLU 


IF (.A, 


IS.NlEAQJ 


NOP 
ELSE 




cm 




STA 


INTFLO 


END IF 




LHLO 


ELPTM 


1NX ' 


K 


SHLO 


ELPTM 


LDEO 


5FRE0 


CALL 


TOHE 


if (psu,is,:wo> 


LXl 


H.O 


SHLO 


CLPTH 


LHLO 


SECONOS' 


INK 


H 


SHLO 


SECONOS 


XRA 


A 



cm 

STA SECIQ 
LXl 0,40 
CALL TOME 
IP <PSU,|S,ZERO> 

LXl H.O 

SHU SECONOS 

LHLO ELPM1M 

INK M 

SHLO ELPH1N 
I IF COLLEC1NS gASEUNftl THEN STOP AT 3 MINUTES 
LOA BSEFLO 

if <.A,xs,N;e*o> 

LXl O f S 
LHLO ELM IN 
CALL TOHE 
IP (PSU.lS.tERO) 

JMP CLXSTP 

ENOtP 
ELSE 

1 
I 

fWHILE CALIBRATING! IF REACH 10 MINUTES IEF0R6 30/ DELTAS 
I THEN AUTCnATlCALLY STOP 

LXl 0,10 

LHLO ELFNIN 

CALL TOKfi 

IF fPSU,|S,2ER0> | HAVE REACHED 10 MINUTES 

JMP CLESTP 
□401 F 
END IF 



(SERVICE INTERRUPT 



1 



J THEN INTERRUPT INTERRUPT 



ENOIP 
END IF 



r 
I 
I 
J 

lAUMYS COLLECT RC INTO RCBUFF, 
I AB INTO A8BUFF, 

jNOTEi ALUAYS USES OATA IN SPBUFF FOR DETECTION 
I 

LHLO RCAO t R10 CAGE VALUE 
A,H 



iTHSW 1 SECON 



NOV 

cm 

AN I 
NOV 

new 
cm 

NOV 

SMLO 

SHLO 



OFH 
H,A 
A,L 

L.A 
. DATA 
RCV 



LHLD 

new 
cvs 
#*i 

WW 

aw 

new 

SHLO 
SHLO 

LHLO 

LXI 

CALL 



O.RCSUFF 



a sad iasocnen ualue 

A,H 

OFH 
H,A 
A,L 

L.A 
DATA 



RIPT 

0.A8BUFF 
PRNO 



I SU* INTO SPBUFF — TO PICK OFF BREATHS 
LHLO ftCV 
LOED ABV 
OAO 0 
SKLO OAT A 

' LW.0 RIPT 

LX! 0, SPBUFF 
CALL tmo 

I 
» 
I 
I 

| INCREMENT MPT FOR NEXT TIKE 
t 



If (.A,IS,«R0> |SEC IF MPT RESET TO 0 
LXI O,0 
LKLO RIPT 
CALL TOK£ 
IP <?5U,lS,:ER0f 
NJl A.OFPM 
STA URAPF 
ENOIF 
010 IF 



LDA B3EFLS 
IF <.A,I$ | :£TO) 
IDA ISOFLG 
IP <.A,IS,NZERQ) 

JKP EXIT 
ENOIF 
EHOIF 



I THEN NO PEAK OETSCTION 



i 
I 

LOA 5L0PEF 

IF <.A,IS,26RO> |THDI INIT POINTS NOT COLLirTED YET 
CALL 6ETP2 jflETURNS C IF < S PTS IM 8"„ C FEB 

(THIS JUST MAKES t .RE EXTRA 
jFOINTS IN BUFFER 
JC EXIT iNOT EHOUQH POINTS IN BUFFER 

I 

jNOTEi G6TP2 tMIT IALLI2ES RQPT TO LINE UP VilTH OERI'i VTUFF 
|SXIP 1ST 3 POINTS IN SUPPER 



LXJ H,J 
SHLO 



tfJl 
STA 
ENOIF 



I OFF SET POINTINO TO POINT 4 



A.OFFH 
SLOPEF 



LKLD 


TINS 


1 


I NX 


N 


1 


SKLO 


TIKE 


1 


SKLO 


DATA 


I 


LKLD 


RIPT 


CALL 0ERIV3 


LSI 


0 (TTtBUFF 


1 ■ 


CALL 


PRNQ 


1 


LKLO 


RIPT 




SHLO 


OORIPT 


{MUST ADD THE COOS TO 00 PEAK DETECTION 






{NESS TOO II 


LXI 


B.HIZl 


1 


LHLO 


RIPT 


LDA FRSTHX 


CALL 


PTRUPO 


SF <.A,SS,:EftC3 |HSWS NOT FGUC :ST 

1 


SHLO 


RIPT 



I 
I 

LKLO ROPT 
CALL FtNO 
IF <PSi,IS,NCAflRY* 
JKP OUTER 

ENOIF 
SHWS 1ST MM 



CKA 
STA 

SHLO SPTEHP I TEMP CRITICAL POINT 

SOEO RCTEMP. 

SBCO AtTEftP 

LOA PTF 

Cm 

STA PTF i«OU LOOK FOR MIM 
JKP OUTER 
BIO IP 



LKLO ROPT 
CALL PINO 
IF (P9U, IS, CARRY) 

SHLO SPUALUC 

50CO RCVALUE 
- ; SBCO ABUALUE 

LOA FTP 

IF < .A,IS,2ER0> pTHIS IS A MAX POINT 

LKLO. RCVALUE 
SHLO. RCKXUAL 
LKLO ABVALUl 



LHLO ABUALUE 1 

SKLO ASMNUAL 

LOA FSTMN* 
IP <.A,IS.U2ER0J 

LOA FSTMN 

CMA 

STA FSTMN 

ELSE . ISTOPE THE OELTA 

CALL OLTSTOKC 



j IF OLTIPTR ■ 1000, THEN EXIT 
LHLO OLTIPTR 
LXI O.tOOO 
CALL TONE 
IP <P*J|IS < 2£RtiJ 
NVI A.OFFH 
STA OLTPULL 
UI H.O . 

SHLO OLTIPTR 
JKP CLKSTP 
ENOIF 
ENOIF 



{THIS IS THE 1ST KIN, DO NOT STORE 



I 



ENOIF 
LOA FTP 

cm 

STA PTF 
ENOIF 



CALL OLTSTCIE 
| ONLY STORE THE MCA VARIABLES AY A MAX (ONLY WANT FOR IN5P> 
CALL nCASTME 



fIF OLTIPTR - 1000, THEN EXIT 



OUTER I 

[uPOATE ROPT FOR NEXT TIME 



LHLO 
LXI 



B.RSI26 
PTRUPO 



LKLO 


OLTIPTI 


UI 


0.1000 


CALL 


TOME 


IF <FSU 


,IS,2CR0) 


mi 


A.OFFH 


STA 


OLTFULL 


LXI 


H.O 


SW.P 


PLTIFTI 


JKP 


CLKSTP 


ENOIF 






jTHII 15 MIN POINT 


LKLO 


ftCUALUC 


SHLO 


RCttUAl 



SKLO ROPT 
I 

EXIT i 

1 LOOK FOR ENTER 
I 

CALL CSTS 
IF <PSU,I$ I N2CR0> 
CALL CINP 

IF t-A.EQ.OOH) (IP ENTER 

JKP CLKSTP 
ENOIF 
ENOIF 

I 

XRA a 



POP 0 
POP PSJ 
RET 

I 
I 

NCASTOREl 

LHLO 
LOCO 
nw 
ir« 
nov 
Hot 
LOED 
MOV 
IHX 

rrov 
tree 
L0E9 
«ou 

IK* 

nn 

inx* 

shlo 

RET 

I 

I 

I 

OLTSTOREi 

LHLO 
LOED 
QftA 

osac 

|ML - INSP VOLUME 

SHU) 

LHLO 

LXI 

MO 

LOED 

NOV 

INX 

nov 



KtAAOOR 
HCIfMJL 

n,t 

H 

rt.o 

N 

ABIMVQL 
H.S 
H 

11,0 
H 

W.5 
H 

lt,0 
N 



u« 
nov 

LHLO 

i rot 

IHX 

SM.D 

LHLO 

INC 

SHLD 

XPA 

aw 

ST A 

|57QRE THE TIMES 



H 

M,0 

CLT1PTR 

H 

M 

OLTJPTP. 

naxcnt 

H 

nAxarr 

9FLO 



I 

LHLO 
LDEO 

am 

0S9C 

|HL m INSP VOLUtE 

SHLO 
LHLO 
LXI 



ftcmv/AL 

A 

0 

nc 

RCUALUG (DELTA RC 
OVIIPTS | OFFSET TO STORE 
O.SCDATA 
D 



LHLO 


THPTH 


LXI 


O.DLTENO 


CALL 


TOHfi 


IF <P5U 


,is,:iao> 


RET 




ENOIF 




U4LO 


TUPTR 


LOEO 


CPTJflE 


new 


ff.S 


INX 


H 


MOJ 




IHX 


H 


LOCO 


PKUALUS 


MOV 


fl.6 


INX 


iH 


HOV 


M ,0 


IN* 


H 


SHLO 


TMPTR 




SET 



iNO R6CM 



iTine of the cp 



I FOR NEXT TINE 



H 

n,o 

AfiftXVAL 

A 
0 

l« 

ASUAtUB (OETLA 09 
0L7JPTS J OFFSET 75 STORE 
0|ASOATA 



I 
I 

I 

I ML MOLDS THE RIND INPUT PTR 

| OS HOLDS AOOR OP RINO 

I 

0 



LOED 
MOV 

ira 

HOV 
RET 



1! 
» 

BSEHESSt 



DATA 
H,E 
H 

H.O 



.AfiCtS 'I»m»luM' 
•ASCI 9 'B*biIIa*' 



CLBKfSSl 
OLANXSl 
I 

RESl .ASCI J 

at mat ill 



WSPTi .UOflO HQUR,HIN,5EC 



.ASCIS 'C«Ilftritln|'. 
•ASCII 



C*l fwttr* r«ut ta 1 »«d 1 



.EXTEffl OOCQM 
,LOC Q0CO1 



rtflXtl .BUI 

RCCUt .BLXB 

ABCUl .SUB 

SPCUl .8U8 

SOil .BLXB 

AM I .BUS 

nCAMl .8LX1 

FtWTi .BUI 
J 

PRSTHXi 

rwcvau 



ABWMli 
ABmMLl 

psrmt .sue 

FLSHFLGl 

13QFL6I 

XO/Tl .BUB 

QOCEXTRAl 

.RCLOC 
.S« 

I 

I 
I 



.lOOfT OOCAL 

• INSERT PPHAC.SRC 
■INSIST IPBO 
FtNTT 

. INSIST VTCCOH 
. INSERT CALCCrt 
.INSERT 0L0C0M 
. INSERT CKCOM 
.INSERT UUftCOI.CCC 
•INSERT SYCCM 
.INSERT EFFCOH 
.INSERT SI MOM 
• INSERT 00! ,A£rt 
.INSIST PHCOfl 

.EXTEPtl OtPSTATl 

•ENTRY .OOCAL 

• EXTERN TCHI.HCHXO 

.EXTE»I SAUSCL.ANSQVT.LFON.LPOFP 

• ENTRY Ml iSQ CAN LOOK AT MAFi 
.EXTERN PSTIKf 

• orrow utsaw&cl 

.EXT ESN TVON.TiOFF 



OOCAL | 



4 

.81KB 



| EXTRA LOCS 



LOA BSEFLQ 
IP <.A.IS.N2£fta> 

JhP BCONP 
END IF 



I BASELINE 



(ENTERED HERE, THEN III CALIBRATE MOOS <NOT LONG TS=f1i 



1 



CALL 
RC 



CM? STATS 



| CARRY SET IF 6AO CAL ' 

| BECAUSE NOT ENOUGH DATA COLLECTED 



I 
I 

fABCAL • SCSTD / ABSTD 
PLOB RCSTO 
f LOA ABSTO 
POIV 

PTTA ABCAL 
JSCCAL • I 

PFOA I 
P5TA RCCAL 

I 
I 

UWST 9TWE THE CAtNS , BECAOfl RESALE ASSWES SO •! 
LOA VTFLO 
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ELSE 

CALL VTSAVECL 
END IF 

IF 'Pali. 1 3, CARRY) liHSM BAD CALS 

ftil A,0 i'<0 6000 CAL!9?ATI0T< <UH8i ttr* THIS RU4, og3sT 
STA CALTYPE iCAL* 70 1 A"» 1 

rt;I A. S 

T7A Lr»S7CAL ;N0 $600 CAL 
STA • SCODflASc i:« 50QO 3ASELINE NOU 

.PRlflT OUT UWT THE 9A0 CALS UWE *J0 THE ST3S 
CALL 20CALS 
STC iBAO CALS 
RET V 
ENOIF — 



,PP.IMT O'/T NHmT THE 2A0 CAL3 MERE AND THE ST&S 



,NOJ MUST USE THE HEAM WT MEASURES TO SCALE THE CAL FACTORS 
I MEAN VT • VTNX/IO 

CALL RESCALE 

* LDA UTrLO 

If i.A.tS.IERO) 
Ml A, * 
STA OPCODE 

CALL *<5QuT »01 SPLAT THE CALS ON THE f/.I^OR 
ENOIF 

l 

LOA UTFLO 

IF <.A.I3.2EROI tuwrr TO PRINT ERROR CODE IF 2AD 
CAU SAUECL 



CALL 


90CALS 


FFW 


1 


FSTA 


fiCCAL 


FSTA 


A5CAL 


!ALL 


•iMFrKA 


CALL 


'-•ON 


;?pn 




CALL 


PRTVrP 






CAU. 


T<TYR 


CALL 


? LFOFr 


STC 





ENOIF 
RET 



>SaO CAL1 



OCALSi 



SLSE 

CALL UTSAUECL 
ENOtF 

IF <FSU,I3,HttlWY) 



CALL LrOl 

HI M.iTA^S 

CALL TXTY? 

CALL PSTtME 

FPFN BAOC.B**PT 

CALL LFOFF 
SET 



iTHEH 0000 CAL3 



CALL 


uw 


CALL 


PRTIKff 


FPRN 


gi,giFT 


CALL 


LFOFF 


CALL 


OIPHCA 


CALL 


LPON 


* FPRN 


U2,V2FT 


CALL 


FRTHYF 


CALL 


LFOFF 


rwi 


Atl 


STA 


CALTYPE 


HVl 


A.OFFH 


STA 


LAST CAL 


ORA 


A 


ELSE 




mi 


A.O 


STA 


CALTTFE 



I COMPUTE MCAA/T 



fOOOO CALS • 

Ilia 6000 CALIBRATION (UK EN 9&6AN TrfIS SIK, RESET 



I 

I 

fRTHYPi 

FFIW KYP.XYPPT 
LOA QUALFLO 

IF <.A.IS,N2EA0» |Ot>*L 

LXI H«RXYP 
ELSE JOUANT 

LXI M.AHYF 
BiOIF 
CALL TXTYF 
RET 

1 

SCQMPl 

|THI3 CONFUTE MEAN UT MtO If I50W UrtS OUAL I TATIVE, CALTTFE ' 

i Ti'EN »T SCALES IT TO '/TPv^'16 

I 



CALL OIPSTATI 
IF <PSU,lS.ZERO> 

1TA 50C5SAH 
3TC 
SET 
ENOIF 



|MOT ENQUOX CwTA 
iNOT A 0000 £a£EL.NE 



1 CALL RE SCALE »T*IS «ILL CJWR3E "VALL'E OF RCCAL ANO A6CAL 

' L3A CALTiFE 

IP '.A.EQ.H lilWOWL 

r 

t JAUE CALS 

.fjai must use tv? »ie*« '/t xeasureo to scale ths cal facw*! so 
i mean vt ■ utmxm5 

Call utsalicu 



STC 
ENOIF 
ELSE 



tAt^OY I 

IF <.A.£fl,3Vj 

HUI Jfcvi^ t ISO QWrr UlTH BASELINE 

STA CALTTFE \ - 

CALL LPON 

CALL PPTtt* v - 

FFRN IS3.1S3PT 
L?C?F 



iCALl 00 NOT CHANM 



I 



IF €F«. I S.NCAFJT'l |THEN 5000 CALS . _ 

, ?w: a, s i;s3-3ual with baseline 

L. JTA CALTV'E 

rwr5,0F«4 
' STA USTCAL t^OOO CAL 
CALL LFQM 

call frtihi 

FFW 1SI .flllFT 

CALL LFOFF 

CALL OtPNCA iCatFVTX «AWT 

CALL LF9< 

FFRN W1.V2FT 
CALL RRTNTR 

CALL LFOFF 
ifJl A.OFFH 

JTA OOOOOASE lOOOD SASrw!M5 

K -.^AA-A - lOCOOCALS 

ass 

FFOA I 

F5TA RCCAL 

FSTA A3CAL 

CALL Q\PHU iCGWUTE PlCAA/T 

CALL LFW 

LXI H f STARS 

CALL TVTYP 

CALL FRTIfll 

tfm 3SBA0.B5BPT 

fprn ,«/2rr 

CALL FRTHYF 
UI H, STARS 
CALL TXTYP 
CALL LPO" 
ttJ\ A.fl 

STA 1O0D8ASI |SAO BASELINE 



FSTA 
FSTA 
CALL 
CALL 
FPRN 
CALL FRTHYF 



I 

AC CAL 



QV»KA iCWPUTS MCA/VT 

LPCN 

•i2,V»2PT 



LPCFF 
FWI A.OF*H 

STA 00 00 BASE lOOOO BASSLINE 

ORA A lOOOB CALS 

If'f^.EO.?) ir-FEO :M CALS, OUAMT. JUI" SETTING aASEUMfi STUFF 
LOA QUALFLO 
IP < ,A , [$,2i?.0* 
CALL *-FON 
CALL FRTUTE 

SS7.9S7PT 
LFOFF 



iCALl DO NOT CHANGE 



I 

flCCAL 



cnmcA jcowjts ncA/UT 

LPON 
W,y2FT 

LFOFF 



FFOA 
FSTA 
FSTA 
CALL 
CALL 
FPRN • 
CALL RRTKYP 
CALL 

ttJl A.OFFH 
STA COOOBASE tCOOO BASELINE 

ORA A iGOOO CALS 

ELSE 1TTFE0 IN CALS.QAIAL 50 WILL CHAmGE CALS 



tSAWE CALS 

jNCU NUST USE THE HEAN «/7 tlSAJUREO TO SCALE THE CAL FAC7CRS 30 
t MEAN VT - VTUX/10 \ 
CALL UTSAVECL 



IP (FSU»t3,lCARm 
CALL LPW 



ITKBI 6000 CALS 
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CALL 


LPOFF 


CALL 


CHF+lCA iCGMPUTt MCA/VT 


CALL 


U»QN 


FPfiM 


V2,V2PT 


CALL PRTHYP 




CALL 


LPOFF 


MVt A.OFFH 




tf* 50«5rf5£ tCOOO CELINE 




tC-OCO VL3 


eL5£ 




FPGA 


1 


FSTA 


RCCAL 


PITA 


AiCAL 


CAUL 


OlF*iCA iCOMPUTS MCA/VT 


CALL. 


.LP©!* 


.CALL 


PSTIME 




JSBAO.SSaPT 


ft FN 


U2.V2PT 


CALL PfiTHY? 




CALL 


A*C-FF 



end if 



nui a.o 

sta coooeAs: :bao bajelike 

STC J 3A0 CAL3 

S<OIF 

B«IF 
ENOIF 
ENOIF 

ENOIF 

srr 



JCCHFVTS HEAH MCA/VT 

IWST REMEMBER THAT ALL RC VMLUES MUS7 BE MULT BY .1CCAL 
fitiO ALL A8 VALUE3 MUST 3E MILT SY A6CAL 

i«3TS» WILL HOT SE ABLE TO COMPUTE HCWT THI CLEAN WAY Of U3INO 

• THEM Stll QP THE SW'J 06* IW BECAUSE THE THfi CAL f ACTOR PROBLEM 
SO UILL KALIS TO OIVM06 BY *C OCLTA - RCCAL ♦ Afl DELTA • ABCAL 
LX! H.XUALUES 
SKLO MORI 
LOA DLTRJLL 
IP <.A.I3^ERO> (FULL 
LHLO OLTIPTH 
SHLO OFFSET ' 



FSTA 
FSTA 
FIT A 

LOOP 

LHLO 
LDEO 
CmCL 
IF <P5!i 

AST 
ENOIF 

i 

J GET MCA VALUE 
LHLO 

now 

SDEO 

not 

fi(W 

ir« 
nov 
«E0 

INX 

mov 
iroc 

SOEO 

rr« 

5HLD 

FILA 
FLOT 
FLOS 
FMUL 
FPSH 
FILA 
FLOT 
FLOS 
FMUL 
FATS 
FPOP 
FAOO 
FATS 
PFOA 

FOIV 
FLOS 



9 

VT3UM 
MCASLM 

.ccrnr 

AOORl 

mcaado* 

T0H6 

f tS.ZE?.G> 



AOO?l 

h 

O.rt 

SCMCA 

H 

ff,M 
H 

o.n 

ASrtCA 

H 

E.M 
H 

o.n 

SMMCA 
M 



■AttfCA 
RCCAL 
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I BECAUSE OF 9 FT OEfllV 40 

1/4 BECAUSE OF OIVIStON Un54 COLLECTED 



FHUL 
.FETA 



HCAUALUE 



LHLO 


OFFSET 


LX1 


0,RCDATA 


CAO 


0 


RCV 


E,« 


ua 


H 


nqv 


DJ1 


5050 


F*C 


LHLO 


OFFSET 


L<t 


D,AiCA7A 


CAO 


& 


MOW 


E.M 


trot 


H- 


MOU 


O.M 


WED 


FAS 


FILA 


PRC 


FLGT 




FLOS 


RCCAL 


FHW. 




FPSH 


FAI 


FILA 


FLOT 




PL98 


ABCAL- 


FMUC 




FAT» 




FPOP 




FAOO 

FLfia 


CCS 


PtlA. 




FSTA 


VTWLUE 



•/tCASUN - SU1 OF MCAVALUEAPLWLUE 
I 

FLOS MCAVMLUE 
FLOA VTVMLUE 
FOIU 

1 IF * I . MAKE - I . 

;psh 

FATS 

FFOA I 
FSU1 

FTST AREA ,LT 

if <psu.is,:erq> 

FPOP 
FFOA 1 
ELSE 
FPOP 



(NO IP 

FLOS PtCASUM 
FAOO 

FSTA MCA5UN 



VTiALUE 
UTSW 



FLOS 
FLSA 
FAOO 
PS7A 

FLOS 
FFOA 



LHLO 
U« 
MX. 
SHLO 
LOEO 
CALL. 



VTSU1 



XCHT 
I 



PITA XCNT 



0FF1E7 



H 

OFPIET 
DLTIPTR 

TOrtE 

if <p*j.is,:ero> 

AST 
SNDlf 

1 

tfflW OFFSET POINTS TO £<P OELTA— IT 
I 

LHLO OFFSET 
I MX M . 

JNX H 
SHLO OFFSET 
LOEO 0LT1PTR 
CALL TDHfi 
IF ^PSU.IS^EPO) 

RET 
ENOIF 



FLOS 
FLOA 
FOIU 
FSTA 

aoa 

FLOA 
FOIU 
FSTA 



VTSU1 

xarr 



VTLWLUS iMEAN WT 



rtCASUi 

XCNT 



MCAVT f MEAf4 MCA^T 



{MEAN MCA/VT • MEAN nCA / MCAtl '/T 
t 
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i . then set • i 

F?2H 
?AT8 

FFOA I 
Mue 

if asu,is,:t?.o) 

?POP 

ELSE 

FPQP 
D401F 

PSTA rtCAVT 



CatP'/7E THS MEAM UAIUE OF V. HHt TQ ?IAK IliS? FLCM 
#10 HEW VALUE OF */. TIf£ TQ PSAX £<P R.OU 



iG£7 ?K2. M*X. PXI. M!H2 WrtLUES 

ira h 

E.rt 

H 

O.M 
PKE 



HOW 
IKX 
rc> 
" 50E0 
IJtt 

::<x 
sees 

MOW 
IfCt 
JW 

soec 

INX 
1MU) 



1AS7 5SIATH 



O.M 
TT'AX 
H 

e.m 

ri 

O.M 
PXI 
K 

fiQOPl 



LriLO 


TMPTR 






E.N 


UI 


O.01TIKE1 




ltd 


M 


CALL 


TOKS 




W 


O.M 


IF <PSU.IS,:£RG> iNOME 




S060 


• THIMJ 


lxi 


H.O 




uu 


H 


3KL0 


pajunBCRS 




MffJ 


E.M 








INX 


H 


EflOIF 






SGEO 


PKZ 


FFOA 


0 




|3£ T TO PEAK 


IHSP FLOW 


FSTA 


wisvn 




LHLO 


TNAX 


F3TA 


PKESU1 




LOEO 


TM.INI 


FSTA 


71 sun 






A 


let 


H.O 




0S3C 


0 


5HL0 


PCNltlBERS 




SHLO 


TTEMP 


LXI 
SHLO 


H.OLTIMSS 
AOOftl 




LHLO 


pxr 




LOEO 
QftA 


TMIMl 
A 


SURE THAT ADO II * I <H TKPTS 




OSBC 


0 


LHLO 


A0M1 




SHLO 


TT2EMP 


LXI 


0,19 




FILA 


TT2EHP 


CAO 


0 




FLOT 




• LOEO 


TMpri 




FATS 




qua 


A 




FILA 


TTeKP 


OSBC 


0 




FLOT 




IF <PSU,IS,MtAA*Y) I THEN At 


.L DATA NOT THESE 


P01V 




RET 






FAT* 




DID IF 






F?OA 
FMUL 


100 



:V: MEXT TIME <*00«l FT J 70 KINI OF HEXT 



»FOR THIS 33 EAT H 
- <PXl-TKWU 4 » ; 



•.assume that aoori fts to m:mi 

LHLO • A0W1 
ffW E.tl 



|X T 70 PEAK IHSP FLOU 
FLOE FX! SUN 

FAOO 



FSTA PKISU1 
|X T TO PEAK EXP FUJJl" CPKE-THAX) / CTWM2« 
LHLD PKE 
LOEO 

2S5C 0 
SHLO TTS1? 

lhlo Tnim 

U(3 TWAX 
2PA 

sisc 0 

SHLO TT2CT 
FILA TT2U 
R.3T 
F*TI 

FILA . TT2EW 

FLOT 

FOl'l 

FATS 

FFW 100 

RTJL. 
T 7-2 PEAK E<F FLCU 
FJ.E3B1 

FACO 

SETA PKEJU1 

I 

|TI - TMAX - TMIMl / SFXSO 
LHLO THM 



■TKAX) « 100 X 



IOCS 
OKA 
OSBC 
SHLO 
FILA 
PLOT 
FAT8 
f !LA 
PLOT 
FOIM 
lARES - TP 
FL08 
FAOO 
FSTA 



T«im 

A 

0 

TTBtf 
TTEMF 



LHLO 
UOt 
SHLO 



paAnaEft? 

H 

POOMBERl 




lUTTICONTRCL ■ 



FLO* 


TtCONTIIOL 


POIW 




FSTA 


VTTICOMT»<?L J 



|«G7Ei TrilS CDtlPiiTATtJl MUST Sg OOME APTEH MCA CC»**'JTATIOi 
t BECAUSE WFCPi -fiO MWUALUE ARE AT THE 

I TO CONSE*/ 

I 

1WILL VWfT TO PRnn' C-/7 '.'AlUE 0? -OfPCfriEA *VTLtn;-. - -1L 
»0A TJALFL2 

IF <.A t ;3.2E»0} iOUANT 10 IN M» 

Ft OA QTLIMIT 

FSTA ^iPOPH IHVFOP Ui ML 
ELSE (DUAL SO PRINT IN TESTS 3F *'. 

FW9 *T7KK 

P«vA It 

fop; 

1areo - control value in ml 

FL08 UTVII1IT IHYFOP VOLLUE IN ML 

FOIU 

FATB 

FFOA 100 



FSTA 
EHOtF 



KYPOPV IHTPOP IN X OF CONTROL 



OJOLQOP 



FlOi 
FILA 
FLOT 



PHIVJI1 
FCNvnSEftS 



STAHSi .ASCI 3 



ISBADi .ASCIS 

«• BAO I SCVOLUNE SCs-LtNO CALIBRATIONi 
TRTED TO 3CALE TO 103 ML 

RETRY tflTH Y-SCALiHO AT LWE?. WAY 

ISBPTj .WRO CH£Hlf<0 

1 

I 

i*oc> .Ate ii 

«•» BAO QUALITATIVE CALISM'tvNl 
RC STO' - 303 
AS S7D* - 303 
■ 0ELTM - 101 
!<£*! RC -301 

riwi as - 103 



.UORO RC3TC.„»»*TD.A$n\F»C,FA6 



I 
I 
I 

33li .ASCIS 

BaSElINEi 

QlWLlTATIVH 1 SOVOllflE CALIBRATION! 
Frca 30t «3«1 ta»i 

3C CAL - 3D1 
AS CAL - 3D1 
Brtilhlo*Ffiq ■ 303 Btftj/nln 

1 

UsLlM^UITH OUAN7 ITATIVE I SQVQLtflfi CAL I BRATtON i 

en&thiAQ ■ 303 twt/«iA 



BS3PT| 



.UORO FREDCCNTRL 



8S7i .ASCIS ' 

BASEL INK UITH GAINS TYPED W QUANTITATIVELY 
0ri4ihlA9 Frt< - »3 Bthi^aU 



I 

Uti .ASCI 3 
QUALITATIVE CALIBRATION: 

ttC CAL • 3C3 
At CAL • >03 
3rtttftiA« " 103 3t.1t/ain 



V7i .ASCIS ' 
5ASELINE UITH <**|NS TV?S3 IN OUaLITATIVELYi 
Frcn 301 dttUM 

fiC CAL • 103 
48 CAL - 303 
Srfittung Fr«q - 303 Blhs/nin 



I 
i 

; 

03 » 



.asc:s 

Proa 301 brtftt&tl 
rtim f*CA/VT - 303 

rtunt XT PK INSP PL - 303 '4 
Rita XT ?v ! ■ «L ■ S03 7. 
rtiki* TI » 303 $ic' 



HYP i .ASCIS 

Hrpapn«i volw 
AHYPl .ASCIS 'ill 



SHYPl .ASCIS "A" Of Ollllin* 
KYPPTi .UORO MY.*0?V 



fijtt- 
»J7PT| 

VIPTl .UORD XCMT . RCCAL , ABCAL 
.UCP.0 FPEOCOKTRL 

I 

VIPTi .UQPO XCMT 
.UORO ttCAVT 



AiORO 

Mtma 



i 
t 

aESCALSt 

FLC-fl 
FF5A 
FOW 
BTTA 

iCCNPVTB TM< 
FtU 
FLAT 
MT9 
FFCA 
50 IV 
FATS 
FtLA 
PLOT 
MOO 
FPJH 

I 

' LKL3 
SRAfl 
RAJR 
SHLO 
FILA 
FLOT 
FAT! 

nvj 

FS7A 

I 

FLDO 
FLOA 



PKXAVa.PKEAVB 
TICCNTROL 
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<NQWO lT*\\ THE THE VOLWS SCU.INO TO 
FRSO SO CAM CONFUTE THE UMN P3R CONTROL 
1HCCT103 



HJHH1 

iaaso - » mimuth for collection 



RAXCNT ^ 5EL7AS 
H 

L tflAXCNT/3 «• • MfATHl 

ITcMP 

tt BREATHS 
tl MINUTES 



ohemuno itoo x volume 

FREOCCNTRL |FREO 



PBTA LKIMCaffSL 



jviUM GF„CCffTROL 



T- mean vt mcusN 

P.93 an&t ii 
PLDA CC3 

mtn. 

P1TA MEAN 



I 50 IN IT VTLIMIT TO QUfiX NO * VTPCt-X 

FLOS WTFCL 

FPQA 100 
F9W 

FLOG CNEHVNO 
RtUL 

fsta vtlimit hypopnea setection 



I40VU7ITA71VC, USE rtSAN VT INSTEAD OF CM33«W0 



1 at! 

PLOB «^T»( 

P7CA 155 
FOI'i 

FL&B ti£AT< SRCAII »i7 IN tlL 
PNUL 

FSTA VTLUU7 |»0R SYPWEA 9E7EC7;or» 
OCIF 

I 

floi »rmx 

FFOA 10 
FOW 
FLOS 
FSL1F 
FOIV 
FTTA 

tRCCAL - CURRENT PC SAZM <RCQ<F> 4 MEAN 
lASCAL - CURRENT AB OAiN '^94F) • »EM1 



»CAL FROM INITIAL CALM 



MEAN 

I RATIO 3F ^VTKX/IO) / htPN VT 



FLOA 


MEAN 


FLOS 


RCCNF 


FHUL 




FSTA 


RCCAL 


FLOA 


MEAf4 


FLDO 


A8&1F 


FHUL 




P3TA 


ABCAL 



I CAL FROM INITIAL CALC3 



jfiDU THE CAL FACTORS ARC SCALEO SO VTNX/10 U1LL APPEAR AS :00 X WWW 
| LttiO TERM 
RET 



? MEA< VT IK ML 



.EXTERN ODZ 


.LOC 


oo : 


ROICAi .9LXB 


2 


AQMCA i .9LK8 


2 


WCAi .BLKB 


2 


ADORlt .8LKB 


2 


1 

nO«JALUEl 




KfpOFVl 





LOA OUALPLO 
IP C.A.1S.NZER0) 



lOUALlTATIUt 



VTSUMl .8U8 * 

.5LKS 4 
PKEAVGi .3U9 4 

TUUIl .BLX8 « 
.PE1.0C 

I 

.=710 



.INSERT PR-MC.SRC 
.INSERT CALCOn.ASM 
.INSERT CXCCM 

.insert selccm 
.INSWT BAGCCtt 

. insert uaaccm.ccc 
.insert jyccm 
. insert hrocom 

.extern ap8p,2all.auoen 

.EXTERN ATCN.RTOF.RTICK 
.DCTON TDHE 
.EXTERN 0CRIV5 

.EXTERN PTRUP0,GETP2,FlND,flCUNO 
.EXTERN SPCN.SPUF 



.ENTRT 5ETUP 

\ 
I 

Cfl - OOK 
FINIT 

I 
I 

I 

I SETUP THE CLOCK "FOR VALIDATION 
I 

;S*iPLE AT 20 PTS PER SEC 

PUSH H 
| IN IT REAL -TIMS BUFFER POINTERS 
I M0OIFIB0 09-24-81 



rwi 


*,3 


STA 


UAITFLO 


XRA 


A 


STA 


URAPF 


STA 


SECPLO 


Cm 




STA 


BFLQ 


XRA 


A 


STA 


VPRSTHX 


LX1 


H,fl 


SHLO 


ELFTM 


SKL9 


ELPtllM 


SHLO 


SECONDS 


SHLO 


CPPTS 



I 



LXI H,0 

SHLO BIPT . 

SHLO OOAIPT 

SHLO SPTENF 

SHLO PNSUM 



IP < .a, is, zero) j using sPiRortETO 

CALL SPOF 



LXI 
IHLD 

LXt 

mi 
it« 
tfj\ 

LXI 



M 

IOFT 



H,0 



H,9 



, |3KIP TK6 1ST 4 DATA POINTS 



ENOIF 




XRA 


A 


STA 


GFLO 


CALL 


ADD EN 


CALL 


AP8P 


MP 


P3U 


POP 


H 


POP 


0 


rcr 


1 


RET 





SHLO TINE 

I MIT VARIABLES FOR PICKINO WX fiHO MtMS 



| START Tf LOOKING fOK MAX PT 
|1NIT MAX HOT POUNO 



XRA 


A 


STA 


PTF 


STA 


SLOPEP 


XRA 


A 


ITA 


IKTPLO 


cm 




STA 


CFLfl 


CALL 


AU0Q4 


CALL 


APSP 


CALL • 


ZALL 



LXt 



I INDICATES CLOCX ON 



M,IRSRU 

A, 23 {CLOCK RATE 
RTCN (TURN ON CLOCK' 



I 
I 

Irsrvi 
I 

I INTERRUPT SERVICE ROUTINE 

1 PUSH S 

PUSH 0 

PUSH H 

PUSH P9J 



IDA SAfl 

IP <.A t !S,2£R0) | US I NO SPI RCHE7ER 
CALL SPCN 

emir 



CUSTPi 



jSTOP CAT* COLLECTION 
| TURN CLOCX QPP 



JMOOIFIEO QF-M-81 



CALL 
LOA 



RTOP (TURN OP P CLOCX 



CALL RTICX 
LOA INT FLO 
IP <.A,|S.NZERO> 



ass 

CMA 
STA 
ENOIP 



I SERVICE INTERRUPT 

I THEM INTERRUPT INTERRUPT 



INT FLO iSET FLAO 



CALL 



CALL SAMPLE 



LOA SLOPEF 
IP <.A,IS,2EflO> 
CALL 6ETP2 



(RETURNS C IP < 3 PTS IN SUPPER 

iTHis just rwres sure extra 

IPOIMTS IN BUFFER 
EXIT ;NOT ENOUGH POINTS IN BUFFER 
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CAUL 



0ERIU3 



LOA VFRSTft* 

IF (.A.IS.ZERO) jHAUE NOT FOUND 1ST MAX 
LHLO «OPT 
CALL PINO 

IF <PS*»,IS,NCARRY> I NOT MAX 

lulo ropt 

UI B.ASI2C 
CALL PTRUPO 
SHLO *0PT 
JNf EXIT 

0(0 IP 

•KAX FOUNO 



LOA 

cm 

8TA 
• LOA 
cm 
STA 
SHLO 
SOED 
SBCO 



VPASTMX 

PIP 

PTF 

SPT&tf 

rctbip 

ABTEMP 



ITEM? CflIT PT 
ICORRESPONOIHQ RC PT 
iCQRRESPONOINO AB PT 



LXI 
CALL 



JTtP 
ENOIP 



ROPT 
EXIT 



|1NIT MAX POUND 



LHLO 
CALL PINO 



JUPOATE ROPT FC« NEXT TINE 
1 

PUSH PSU 

PUSH 0 

PUSH 9 

PUSH H 

I 

LHLO ROPT 

LXl 0.RSIZE 

CALL PTRUPO 

SHLO ROPT 

POP H 

PC* 8 



|PtNO RETURNED C 5ET IP CP POUNO 

-ANO KL HOLOS SP PT VALUE 

I AND Oe HOLDS RC PT VALUE 

f AND 8C HOLOS AO PT VALUE 

I 

IF CPSU,lS,CARffT> 
SHLO SPVALUC 
SOED RCUALUE 
S8C0 AEVALUE 



LOA PTP 

IP C.A f IS,ZE*0> jTHEN rWX POUND 



STA 
LXI 
, LHLO 



LOA 



BFlO 
0.*PH« 
CPPTR 
Q 



IP (.A, IS, ZERO) (THEN USINO SPIRCN5TSR. At<0 

»SPVALUE H0L09 SPI 'CKETeR UALUE 

LOEO 5PVALUE 

?-SE -USINQ SP |R08AO,50 FIXCU HOLOS 

LDEO FtXCU 
END IF 



HOW 

INX 
now 

LHLO 
LXI 
OAO 
LOEO 

now 

INX 

WW 

LHLO 
LXI 



H 

M,D 

CPPTR 

O.RQMX 

0 

RCVALUE 

rt.E 

H 

H.D 

CPPTR 

0.A8MAX 

D 



I 

1 

flP UAL I DAT t NO ANO IP US I HQ SPIRQBAQ 
| THEN SPWAUJE HOLOS THB SUN NAX 
LOA OAO 
IP CA,lS,mEROJ 



J THEN U5U«J SPIROBAQ 



1 

LlflOll 



sptMLue 
uogi 



LOEO 
-»1P 
ENOtP 



LOCO AftMLUE 



I SIM VALUE 



MOW 

INX 

NOU 

LHLO 

ll«( 

SHLO* 

LHLO 

INX 

Ira 



LXI 



M 

H.D 

HA*CNT 

K 

MMCNT 
CPPTH 
M 
H 

CPPTR 

MAXCNT 
O.flRTHNX 



LHLO DATA 

NOV A }H 

cm 

AN! 6FH 

NOW H,A 

now a,l 
cm 

now l.a 

SHLO DATA 
ENOIf 



osec 

- IF (PSU 
JHP 
D«lP 

LHLO 
LXI 
DM 

IDA 

IP <-A, 



,SS,ZCRO> 
CUSTP 



CPPTR 

o.spmim 

0 



J THEN SUPPER PULL ' 



IS, ZERO) jTHEN UflNO SPIROMETER, ANO 
ISPWALUE HOLOS SPIROMETER 



]WINO SPIR08A0,S0 MIN ■ 4 



(ML HOLOS THE RINO INPUT I 
06 HOLDS AOOR Of HIHQ 

OAO 0 

LDED DATA 

NOV H,E 

INX H 

rtov n,o 

RET 



LOCO 


SPVALUS 


ELSE 




LXI 


o.o 


ENOIP 


now 


h,e 


INX 


N 


now 


H,0 


LHLO 


CPPTR 


LXI 


0,RCNIH 


OAO 


0 


LOEO 


RCVALUE 


NOV 


«.E 


. INX 


H 


now 


M,0 


LHLO 


CPPTR 


LXI 


o.aemw 


OAO 


0 
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FtHtT 

i INSERT VTCCON 
.INSERT CALCOM 
.INSERT OL0C0M 
.INSERT CKCfH 
'.INSERT UARCOH.CCC 

. insert srcon 

. INSERT 001. AS! 



.EXTERN TOM, ROUND 



,9<TKY PBT30C 

.tnt fry cmwtats 



LDA QLTFULL 

IF {.A,IS,2ERQ> |RIN0 NOT FULL YET 

SHLD r OFFSET 
LDED OCT OFF 
CALL TOME 

[f (PSU.IS.JERQ) (THEN NO OELTAS 



UI 
CALL 

src 

BET 

ELSE 

LMLO OLTOFF 



H.NOOELTS 



I THIS IS THE ENTRY POINT FROM LOtffl TERM 





CALL 


Q1MTATS 




RC 






FLOS 


BCSTO 




FLOA 


A8ST0 




FDIV 






FSTA 


A8CAL 




FPRN 


aow.oacPT 




RET 




1 

OQCUi 


.ASCIS 




ooc - 


1031 


1 OELTAS * 30V 




MEAN 


JTO COM 


RCi 


103 


503 303 


ASi 


303 


303 303 ' 


1 

Q0C7T 


i .uoro- 


A8CAL.XCNT 




.uoso 


FBC.RCSTD.COVRC 




,UORD 


FAB , ABSTO , COUAB 



SHLO 
ENOIF 



OFFSET 



.ftltiO IS FULL 

;PqiNTS TO NEXT PLACE TO PUT, SO UILL BE. 
}Th£ OLDEST VALUE 



I 
I 

!iST TIME THRU THE OATA COMPUTE MEAN ANO STO OF J.»T SUM 
I 

,2N0 

I of 

I 



TIME THUR THE OATA ONLY USE DATA UK ERE *M IS UlTHtM ♦•OOCSTO OF MEAN 
SVM 



1 

LOOP 



NOOELTSl .ASCIS ' 

NO ODC OELTAS /MAILABLE 



tftC0ATA 8 ANO AflOATA HOLD THE 0ELTA3 FOft RC AND A3 
'iCOiPUTS THE «tm ANO STO QF RC, AS AND RC»AB 



FFOA 
F5TA 
FSTA 
FSTA 



LHLO 

LXI 
GAD 
MOM 
INX 

riov 

SOEO 

LHLO 
LXI 
0*0 
MOV 

lr« 

MOW 
SOEO 



0 

SHSIH 

SMXXSUI 

XCNT 



0 

E.tt 
N 

O.M 
IRCV 

OFFSET 
B, AflOATA 
0 

E.M 
H 

o,n 
tAsy 



CALL SUPERS 



OFFSET 
H 
H 

OFFSET 
O.tOflO 
CAtL TOMS 
IF CPSU,IS,2ER0> 
OC1 M,0 
SMLO OFFSET 
ENOIF 



LHLO 

INC 

W« 

SHLO 

LXI 



■QUIT UXSH OFFSET - OLTOFF 
LHLO OFFSET 
LOEO OLTOFF 
CALL TOHE 
IF <PfiU,lS.2€R0* 

RET | EXIT LOOP 
ENOIF 

EHOLOQP 

jCCrtPUTE MEAN ANO STO OF SUM 
FLOB SMS 111 



KCMT 



SMSUN 
JMSUM 



FLOA 
FOW 
FSTA 

1 FLOB 
FAT3 

FLO* XCNT 
FOtW 

FLOB SNXX3UM 

FSUB 

FATB 

FLOA XCNT 

FOW 

fsqx 

F5TA 5M3T0 
(HIGH LIMIT • SHNEAN . QX3T0»SMST0 
j LW LIMIT • SftlEArt - WCSTD'SNSTO 

1 f\.Oi QOCSTO 

FLOA SMSTO 
FMUL 

FLOS StMEAN 
FA 00 

FSTA SMMICH 

? PLCS ODCSTO 



FLOA SMSTO 
FWJL 

FLOB SMHEAN 
FSUB 

FSTA SNLOU 

lf«J COMPUTE MEAN AND IT9 OF RC AMD AB FOP. ALL PAIRS WHERE 

y RC»*fl < SMHIOX MIO RC*A« t SMLOU 

I 

1 LOA OLTFVLL 

IF <.A,|S,2ER0> iSINO NOT FULL YET 
LXI H«0 
SHLO OFFSET 
ELSE 
LHLO 



I 

LOOP 



SHLO 
ENOIF 



FFOA 
FSTA 
FSTA 
FSTA 
FSTA 
FSTA 



LHLO 

LXI 

GAD 

MOV 
P« 
MOV 
SOEO 

LHLO 
LXI 
OA© 
MOV 
INX 
MOV 
SDEO 

CALL 

LHLO 

INX 

U« 

SHLO 

UI 



OLTOFF 
OFFSET 



|RINO IS FULL 

IPQINTS TO NEXT PLACE TO PUT, SO HILL BE 
I THE OLOEST VALUE - 



I 

RCSLtl 

RCXXSUM 
AESUM 
A3XXSU1 
XCNT 



OFFSET 

0,RCOATA 

0 

E.M 
H 

0,M 
1RCV 

OFFSET 
0 .AflOATA 
0 

E t H 
H 

D»n 

1ABV 

RASLCnERS 



H 

OFFSET 
0,1009 
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LXl M 
1HL0 OFFSET 
ENOIF . 



jQUlT UM&< OFFSET « OLTCFF 
LRLO OFP«T 
LOED OLTOFF 
DUX T0K6 
IF <P9J,IS,2EA0J 

ret jew imp 
enqif 

ENOL00F 

I 



THBt NO OOOO OATA 

xarT 



;IF XOCT t 2, 

aos 

FFOA 
P3U8 

rrsr aaio.lt 
If (PSUJS.IERO) 

LXt H.KO0ELT5 

CALL TXTTP 

STC 

AET 
ENOIF 

(COMPUTE MEAN OF «C AMO AS 
FLDi ACS 111 
FLOA JlCNT 
FDIV 

FSTA FRC 

I 

FL03 ABSW 
FLOA XCNT 
FOIV 

FSTA FAI 

I 

iCOMFUTE STO OF BC ANO STO OF A8 
I 




FLOS 
FLOA 
FfWL 
FAT I 
FLOA 
F01U 
FLOS 

FSU8 
fATB 
FLOA 



RCSU1 
RCSU1 



FLOS 


A8ST0 


FLOA 


CCS 


RfUL 




FSTA 


.AS STO 


FLOS 


RCSTD 


FLOA 


CCS 


FttUL 




FSTA 


PCSTO 


STO/TtEAN 


FLOS 


RCSTO 


FLOA 


FRC 


FOIW 




FATS 




FFOA 


100 


FMUL 




F5TA 


COUftC 


FLOS 


AflSTO 


FLOA 


FAS 


FOW 




FATH 




FFOA 


too 


FttUL 





FTTA C9JAI «JI *OSLtt 

ORA A FAOO 

RET FSTA A8SU1 

! 1 FLOS FAS 

, FLOA FAS 

RASIH1EAS t *WL 

FILA 1RCV FLDB AB5WSU1 

FLffT FAOO 

FSTA FRC FSTA A8XXSU1 

FILA WW I 

PLOT r 

FSTA FAB I 

I FL08 XOfT 

(DO NOT USE IF FROFA8 ) SWIGH OR tF PRC'FAB ( SHLOU FFOA 1 

FLOB FK FAOO 

FLOA FAS FSTA XCKT 

Fa oo I 

FATB «ET 

FLOA SlKlOH I 

FSU8 I 

FTST AAEO.GT I 

IF (FSU,1S,2£IU> 1 

RET t 

I FILA IRCV 

FLO! PRC FLOT 

FLOA FAI FATS 

FA0O FILA IASV 

FATB FLOT 

FLOA S1LCU FAOO 

FSUB FSTA FSltt 

FTST AR(Q,LT 

IF <PSU,tS,2tR0) FLOA FttJI 

RET FLOS Sntui 

ENOIF FAOO 

I PSTA SMSlM 

I I 

| FLOA F3LM 

FLOA FAC FLOB PSUM 

FLOB XC&fl RtUL 

FAOO FLOB STDOSLM 

FSTA ACSU1 FAOO 

» FSTA SfttXSUM 

FLDB FRC i 

FLOA PRC | 

FWJL FLOB XQfT 

FLOB RCCtSl* FFOA i 

FAOO. ' FAOO 

FSTA RCKSUt FSTA XCHT 



FLOA Ml 



RET 
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.INSERT CALCOM 

. INSERT 1ELCCH 

.INSERT EFFCOM 

.(NSIXT OK. 'CW 

.INSERT SI0CO1 

.insert fpmac.src 

.insert pkcq1.a3m 

.ENTRY FINO.GETPS.E-EfttV? 

.extern tdhe.ptrupo 

FIMIT 



HL - OFFSET OF CURRENT FT ON ENTRANCE 

CM EXIT l IF CP FOUNO. THEM CARRY SET ANO 
HL - SPIROMETER FT 
OE - 118 CASE PT, 
BC - M80CMOJ . PT 
CUROFP 



SHU 

LHLO 

Ul 

SAO 

now 

IMX 

MOW 

50EO 

LKLO 

UI 

DAO 

n<?; 
Itoc 
not 
JOED 

LHLD 

LXI 

DAO 

MtW 

I NX 

MCW 

SOED 



CUPOFF 
O.SPBUFF 

M 

O.ft 
CURSP 

CUR OFF 

0,RC3UFP 

D 

E.n 

H 

CURHC 

CUPOFF 

D.ABBUFF 

0 

CM 
M 

0.11 



LXI 
0*0 
HOV 

in* 

HQU 



CURQFP 

D, TM8UFF 
0 

E, M 
H 

O.H 



«D£D CURTH 



CALL CTSiCJI |CH£OC S13IS OF DERIVATIVES 



LOA FTP 

IF <.A.IS.NZERO> 
LHLO SPTEMP 
LOEO CUftS? 
ORA A 



DS8C D 




IF <MU.!1.NCAWi if 


LHLO 


C'JPJP 


SHLO 




LHLO 


ewe 


SHLO 


RCTZKP 


LHLO 


cup*a 


SHLO 


A8TB1P 


LHLO 


CISOFF 


IHLO 


CFfTOT 


LHLO 


cysm 


1ML0 


TMTSMR 



ILGGK FOR MM 



•JIQI TT1P MM FOUlO 



,1. AOO CURRENT PXOBJF/ *T TO BC COUNTS 
1 3. aOO RCTCTIT TO PC 

jj. RCTorr <— o 

|4. AOO CURRENT ABDERM TO *i COUNTS 
|S. AOO ABTCNT TO A| f" 
|4. A8TCMT t— 0 

CALL 



UPOTl 



CRA 
RET 
ELSE 



tMSSIBLE CP SO '.HECK SLOPS 3E7US3I 

(CURRNT PT AKO .T91P PT 

CURSP 



LHLO CURSP 

SHLO SPTEMP 

LHLO CURRC 

SHLO RCTEMP 

LHLO CURAB 

SHLO A8TSMP 

LHLO CJPCFF 

SHLO OFFTGMP 

JLHLD TM'EMP 

SHLO CPTIME iTIME OF THIi C? 

LHLO C-JPM 

SHLO. TNTEJ1P |NEU T£MP 



STORE RC C2U«T3 

PC COUNTS C— ftCTCMT 

RCTCMT <— 0 

STORE *B COUNTS 

A8 COUNTS AI7CMT 

AflfTCNT <— 0 



"CALL 


•-PC73 




POP 


3 IAB 


«.V»LUE 


POP 


0 IPC 


'MLUE 


FOP 


H :SP 


value 


STC 


l SET CARRY 




•ST 







ELSE 

{NOT A LARGE ENOUGH SLOPE 

ADO RCOERV TO RCTCNT 
AOO A80EIW TO AST CUT 

CALL UP0T3 
ORA A 
RET 
EWO IF 



LOEO 


SPTEMP 


OJOIF 


CRA 


A 


ELSE ILOOX FQ1 


6SBC 


0 


LHLO SPTEMP 


iNCU HL HOLOS DIFFERENCE 


LDEO CURSP 


LOEO 


(1IHCC 


XCHQ 


ORA 


A 


ORA A 


0S8C 


0 


DSSC 0 


IF'<PSU,|S.MCAPRY) j THEM SPTEMP IS CP 


IF (PSU.IS.NCARRYJ 


LHLO 


QFrTEMP 


LHLO PJP.SP 


IHLO 


CPflFF 


SHLO SPTEMP 


LHLO 


SPTEMP 


LHLO CURRC 


PUSH 


H 


SHLO RCTZMP 


LHLO 


RCTENR 


LHLO CURAB ■ 


PUSH 


H 


SHLO AflTSMP 


LHLO 


ABT3W 


LHLD CUROF* 


PUSH 


H 


SHLO QFFTENP 



IjTHBl CURRENT >- SPTEMP 
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UPOTl 



. CALL 
CPA A 

«£7 

EL1E ;P0SSI2LE C? 

LHLO S"E<f 

LuEO C'j»I? 
0>A A 

*«C 0 
lUCU HL - 01 FP 

loeo rune: 

ORA A 

OSSC 5 

!.i <?SU.n,NU*-" iTHDl j?T2<P IS CP 

lhlo : s rs" 

iHLO CPOFF 

LHLO i s ~2'.» 

PUSH H 

LHLO ?.C r Sff 

PUSH - " «! 

un.3 • p 

fU3H ^ 

LKLO »f9iP 

SKLD C?T:m£ iTIME OF CP 

lw.0 . r.'ps? 

5MLO SPT21P 

LHLO C'JARC 

SHLO RCTEMP 

LHLO CUP* B 

SHLO ABTEtfP 

LHLO CUROFF 

SHLO CP FT?* 

IHLD CUJTTH 
SHLO 



CALL 

TCP 

POP 

PGP 

STC 

RET 



"PCT2 

8 ;A9 '."ALUS 

|?.C "AM.UC 
H li? VALUE 



ELSE sfrt- 1ARSS 2ICUGH SL3PE 

CALL UPOTJ 
ORA A 
RCT 
-6MOIP 
ENOIP 
B40IF 



|0ETP2» 

•SEE IF AT LEAST 3 POi.'lTl J;< RJmo 9UFPSR 



HIPT 
O.10 



LHLO 
U! 
CPA 
OSBC 0 
TP <PSU.!S.CAF.R7' 

STC 
ELSE 

CAA A 
£NOIF 
PET 



i-rEN t 3 PTS 



UPOTti 

«»O0 CWKSfT AaS<»C0ER-n at TO *c COUITS 

j 2. ado p.cTarr T a rc zc.ia 

il. RCTCT4T <— 0 

;4. AGO CURRENT A3S<AaOSR?.'» TO A3 vOlNTS 

;3. aoo astoit ra -a counts 

14. ABTCNT i*m Q 

I 

t 

5 

tflOTS i 00 » WT SEPEATAE IMPOSE AKO OUT "OF «r»:i 

LHLO ABSRCO 
LOED P.ClN 

two 0 

SHLO RCIM 

? 
I 

ufi.0 aciri 

LOEO 4CT104T 

OAO D 

SHLO RCIM 

\ 
1 

LXl H.O 

SHLO RCTICNT 

1 
1 

LHLO ABSA80 

LOEO ABIH 

OAO 0 



SHLO ABIH 



LHLO ABIH 

LOCO AffTICNT 

OAO. 0 

SHLO A81N 



LXI 
1 SHLO 



H.3 

abticmt 



.LHLO TStfX 

LDED TTPOS 
ORA A . 

DISC D 

IF <P», IS. CARRY) , TTPOS > TEMPK 

t LHLO TTPOS 

SHLO TSNPK 

LHLO T7PTM 

SHLO PX7IME 
8401 f 



|SU1i 00 HOT 1EPERAIE fNPHASS AMO OUT OF PHASE 'MLUES 

I AOO THei ALL 

I 

LHLO ABSSMO 

LOEO SNIO 

OAO 0 

SHLO SMtO 



LSI H,$ 



3HL0 
SHLO 



ELSE 



TTPOS 
TTMgO 
CUKTTI 
T^?-ri 

TTNTM 

tOH THE ECP SIOC (LOOKINO FOR HJN 



SMI* 
5MTCNT 
OAO 0 

shlo smcwr 



LHLO 
LOED 



shlo smtcmt 

i 

tFOR PEAK PLOW STUFF t 

ISTIOEAV - CURRENT FLOU, ABSSMO - aBSI SM0S3U» 
t 

I IF OK IM3P SI OS I, LOOKING FOR rvw (PTF-O) 
LDA »TF 

IF <. A. IS, ZERO) (OH (NSP SIDE 
j IF CURRENT FLOU > 9, OR IP ASSSMO • 5MPE5V 
LHLO ABSSMO 
LOEO SKOERV 
CALL TO HE 

IF (P9U,|S,!£R0> jTHEN CURRENT FLCU > 0 
| IF CURRENT FLOU ) TEMPK 



jCURROfT FLCU > TShPK 



LHLO 


TEMPK 


WEO 
OAA 


SMOERV 
A 


0S8C 


0 


IP (PSU.IS.CAARV) 




LHLO 3M0SSV 




1HL0 TEHPK 




LML5 CURTM 




SMLO PKTIMC 



I 

flF CURRENT PLOW < 0 . OP IF ABSSflO tHJX- SHOERU 
LHLO A33SH0 
LOCO tnt>Vf) 
CALL TOPE 

IP <PSU.IS.M2E?0> iTHBI CURROIT FLOU 0 
ilF AflSt CURRENT FLOU J > TEftPir 
LHLO TEtPK 
LOED ABSSMO 
ORA A 
OSBC 0 

IP (Pftl, IS, CARRY) MBSICURRBI7 FLOU» > TEMPK 

LHLO AB33M0 
SHLO TEHPK 
LHLO CURTM 
SHLO PKTIflE 

O40IF 
E740IP 

I IF TTNEQ ) TD1PK 

• LHLO TQlPK 
UEO TT74EO 
ORA A 

0S8C 0 

IP '.PSU. 13. CARRY) iTTNCS ) TEMPK 
LHLO TTTIEQ 
SHLO TEMPK 

lmlo r»ini 

SHLO PKTIME 
ENOIF 



EHOIP 
040 IP 

J IF TTPOS ) TEMPX 



LXI H,0 

SHLO 

3HL0 



TTPOS 
TT74E0 
CUP.TM 
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ENOIF 

RET 



upbt:« 

fl. STORE EC COUNTS 

1 2. RC COIWTS <— RCTOlT 

rctcw (— o 
1 4. rrofle ab counts 

1 3. MS COIKTS ! C— ABTOlT 
|J. ASTCHT <— 3 

LHLO RCIN 
SHLO rcumol 



LHLO RCTtOrT 
SHLO AC IN 



at m.o 

SHLO RCTIClT 

. LHLO A 8 IN 

SHLO A8INY0L 



LHLO ABTICNT 
SKLO ABM 



LX1 H , Q 

sw-s abticnt 

;3UN| DO r«T SEPERATi IHPHASE WD OUT CF PHASE 
LHLO SM10 
S«LO SffJOL 



lhlo smoff 

SHLO 3110 



LXI H.O 
SHLO SMTCNT 

i«W PEAK ROW TTUfFi 

iSrtOEJW - CURRENT F.: £2«D - *8St«K2E8V> 



If C.A.IS.Z5P.0) tCri iriSP -J I OS 
jTEJIPK 13 1>E PEAK FLOW. *<0 W!(lE IS THE TINE OF IT 
iSTORE THE TIME OF THE PEAK FLOU 
CALL PKS70RE 

LHLO miEO jNCU HILL 2£ til SUP 3 IOC 

SHLO T91PX 

LHLO TTN7H 

SHLO FtCTIflE 

'.<! 

SHLO TTPOS 

3W.0 TTNEO 

LHLO CURTN 

SHLO TTPTM 

SHLO TTNTH 
ELSE JC" £>.■ 3105 

jTEHPK IS THE PSAK PUJU. ?KT!{'-S I? TKS TLMfi OF IT 
jSTORE THE TIN! OF T}*« »£AK «.flU 

lAU_ PKSTCP5 

LHLO TTPOS jfiCU UJLL IE ON L'lV % IOC 

SHLO TSKPX 

ULO TTPTM 

SHLO PKTIKS 

LXl M.O 

SHLO 77PCS 

SHLO TTNEQ 

L1H.0 cum 

SHLO TTPTM 
SKLO TTKTM 
3I0IF 

I 

xet 



! . AOO ABS<RC0ERV1 TO RCTCNT 
3. AOO A89<AB0E»/i TO ASTCHT 

LHLO - A8SRCD 

LOEO aCTICNT 

OAO 0 

SHLO RCTICNT 

\ 

LHLO ARSABD 

LOEO A«Tia<T 

OAO 0 

SHLO ASTiCNT 



ittMl 00 HOT SEPEJUTE [f I PHASE H® OUT -OF PHASE 



LHLD ABSSnO 
LOEO SMTOff 
OAO 0 



I 

!fo« PEAK FL*I ITUPFl 

tSWSEW • DIMWIT R». -3SSN0 • 

!lF COin&fT FLOLI > 0 
LHLO »10EW> 
LOEO A8S3T0 
CALL TOM 

if <?su,ti,:wo> 

I IF CURHSCT FLOW > TTPC1 

LHLO npoi 

LOEO SHOW 
ORA .A 
08BC 9 

IF <r9U.I$,CAPRY? 

LHLO s-ssw 

SHLO 
LHLO 



jTHB* CWP-StiT FLOU > 0 



ENOIF 
ELSE 

ilF 4B5<CtiaREMT FLOU > TTMEfl 
LHLO TTNEfl 
LOEO ABS3T0 
ORA A 
05BC 0 

t? <P-SM,IS,CARffr> 

LHLO AOSSnO 
SHLO TTNEO 

LHLO CURTM 
SHLO TTWni 

ENOIF 
ENOIF 



LHLO 


RCOERV 


new 


A,H 


AN I 


mh 


STA 


RCSIGN 


LHLO 


ABD CRV 


NOV 


A.H 


AMI 


BOH 


STA 


ASSIGN 


LHLO 


SMOEHU 


NOV 


A t H 


AMI 


BOH 


STA 


SMI ION 


PKW 


9. A 



(CURRENT RC OERtW VALLfE 



{CURRENT AB DEAtV VALUE 



IP <.A 
XRA 

cm 

STA 
ELSE 
<RA 
STA 

enoip 



NOV 

■LOA 
IF <.A 
SRA 
0*» 
STA 
ELSE. 

XRA 
STA 

0*0 IF 

RET 



RCS I ON 

,EO,.B> ITHBI RC INFHASE W SUN 
•A 

RCtHPHS 
A 

RCINPHS 



SMS I GN 

a. a 

AOS 1 84 

,EO..B> jTKDl At INPMSE W SUK 
A 

ABINPHt 
A 

AfltNPMS 



RET 



1 
» 
1 

PKSTORE i 

LHLO 
SHLO 
RET 



OERIU US'MQ 9 POINTS 
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SRC0F5T HOWS Off SET 70 «£T XZ FP.BH *M PA7A 3WF?S33 
lASSUMEi RCfl.aa2.RCr 2,Rtt«. ABYl.A8Y2,Arrl.ABY4 ALREA0"Y 



LSI 
LML9 

two 

WM 

row 

SOED 
ULO 

lxi 

OAO 

nw 
ir« 

HOW 

soeo 



O.RCSUPF 
IPX WIT 

7 

t,.1 

H 

o.h 
rot? 

SPC0«7 
0 ,ABBUFP 
0 

E.H 
H 

O.H 
A8Y* 



0*0 
PUSH 

LHLO 

lOEO 

•;?a 
pgp" 

(MO 
JHLD 



RCYi 



0 
0 

rc:esw 



L3H B.RSUZ iWWTE FOR MCXT TtHE 

LKLO 3KCOFIT 

CALL PTRUPO 

SHLO SRCOFST 
|OE*iU - {f-|».4 . <3-2>«J ♦ <7-l>«2 • 
I 

LHLO F.CV? 

LOEO RCfl 

CPA A 

DS3C 9 

OAO H i<RCY?-ACYI) -*2 

OAO K l<RCYP-RCYI>-4. 

PUSH M 

I 

LKLO RCYB 

LfiEO RCT2 

ORrt A 

03 B C D 

now ix 

now O.H 

OAO M p2 

OAO 0 10 

MP 0 

OAO 0 

POSH H 

I 

LHLO RCY7 

LOEO RCY? 

ORA A 



Ol'JtOS ^KER^ rr « *0 -**0!0 CYEAFL2U UK£>< I.TTsOPATtriO IT 
LHL5 FttEi?7 



5?aR 


M 


Ra*R 


t m 


SPAR 


H 


RA*R 




iHLD 






• •«! - 


1 

LHL9 


AfffS 


L&EO 


• -Oi 1 


ORA 




033C 






H 


CAO 


H 


PUSH 


H 


1 

LHLO 


AiY8 


LvEO 


a ay 2 


CAA 


A 


0S8C 


0 


MOW 


e.l 


now 




OAO 


M 




0 


POP 


0 


OAO 


0 


PUSH 


M 


1 

LHLO 


ABY7 


LCEO 


ABT3 


ORA 


A 


0S9C 


0- 


OAO 


H 


POP 


0 


OAO 


0 


PUSH 


H 



l'.A5Y»-ABYU«2 
!»AflYt-A87lM4 



1*1 



LHLO AtYi 

LOEO A8Y4 

Oft* A 

OSK 9 

POP 0 

oao a 

SHLO ABDERV 

~««m otvics *nvN rt J Ta*#oia outmar wei i.h-S5Patuio :t 

LHLv AfDE/W 

IPAA H 

PARR - 

SftAA ri 

RARR ' L 

SHLO AftOCW 



LHLO 
LOEO 
SAO 
SHLO 



RCOIRV 

•amw/ 
0 ' 

SMOEJW 



iCatPUTS A3MLUTS VALUE v? 2 CIS* J JiO aBOEJW. AHO SPCEZV 
LHLO tCSSW 
MOW *.H 



I RESET •MLUII MR HttT -JrS 



LHLO 


RCT2 


mo 


PCfl 


LHLO 


P.CY3 


S^U 


RCT2 


LHLO 




SHLO 


pen 


LHLO 


P.CTS 


SHLO 


PCM 


w*L3 


jkyi 


SHLO 


sera 


LHLO 


RCY7 


SHLO 


P.CYi 


LHLO 


sera 


1HLD 


per? 


LHLO 


per* 


SHLO 


RCYB 


LHLO 


*8Y2 


SHLO 


AST I 


LHLO 


*m 


SHLO 


ABT2 


LHLO 


A8Y4 


SHLO 


ABY1 


LHLO 


A8YJ 


SHLO 


AflY4 


LHLO 


ABY4 


SHLO 


A8Y3 


LHLO 


ABY7 


SHLO 


ABY4 


LHLO 


*rra 


SHLO 


a9Y7 


LHLO 


ABY? 


SHLO 


A8YB 



AMI 80 H 

ip <.A,n^ai2c-. 

f*OW A,L 

cm 

W7/ L.A 

now a,h 

C*A 

hOU 'WfA 
*H 

A8SAC0 



SHLO 

n.se 

SHLO 
B*IF 



ABSACO 



LHLO 

now 

JC4| 



Aawsi 

A.« 
SOH 

ip < jk,u.n:£P->' 

MOW A.L 
CMA 

L.A 

now A.H 
now H.A 

IKX H 

SHLO A6SAB0 
ELSE 

SHLO A8SAB0 
6H01P 

LHLO MWJ 

HOJ A.H 

AMI BOM 
IP <.A,IS.N2£ROj 

MOW A.L 

CMA 

MOJ L.A 

MOW A ,H 

Cr» 

HOW H,A 

HOC M 

JHLO AB35MO 



ir^ai «ow; ? 3 



»Thei a80E?j : 4 



iTHBI SrtOERW t 0 
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lETP2t 

I SEE IF AT LEAST 10 POINT1 M HUtQ 3UFr£R 

ULO RIFT 
Ul 9,20 
ORA A 

osac 0 

IF <PSU, IS. CARRY* tTHSl < tO PTS 

STC 
EtSC 



SETUP IN IT VALUES IN *.CM .ICfl ,RCf1 ,l*Cf 4 



LXI 


H.HBUFF 


MOV 


E,rt 


ir« 


H 


MW 


O.rt 


Si>€0 




lr« 


X 


MW 


c,n 


lr« 




nW 




SOEO 




tt« 


K 




e^i 


lr« 


H 


nw 


0,n 


soco 


RCYJ 


IHX 


M 


row 


E.M 


u« 


H 


K3J 


0* 


soeo 


act* 



ir« 

WW 

sceo 

ira 
HW 

in* 

now 

SOU 

ir« 

WW 

(?« 

WW 
SDEP 

I NX 
WW 

tree 
nov 

SOEO 



LXI 

now 
irot 
now 

a CEO 

MOV 
INX 

now 
soco 

HOC 

mw 
u« 

MOV 
SDED 

rrot 

hoy 
iw 
■ 4 7J 

I NX 

new 
irec 



CM 

H 

o.n 
Rcrs 



D.M 



H 

S.M 



D.M 
ftCV7 



0.J1 
RCTB 



H.ABBUFF 

E.n 

H 

o.n 

AflYI 



H 

E.n 



O.M 
A0Y2 



H 

o.n 
A8TJ 

H 

c.n 

H 

O.rt 
A8Y4 

H 

S.H. 
H 



MW 

sold 

INX 

mw 
H« 
WW 

soco 
tree 

MOW 

a« 
now 
soco 

not 

MW 
IMX 
MOV 

soeo 

Ul 
SHLD 

LXI 
SKID 

uct 

SHLO 

ORA 
ENOIF 
RET 



.zavtt cfo 

.L3C CFO 
CUROFF i .BUS 
CFFTEMFi .SLX8 

.RELOC 

I 
I 



0,n 
Afr3 

N 

N 

o.n 

ABY4 



E.rt 
H 

o.n 

AIY7 
H 

£,n 

H 

0,M 
A BY I 

H.N lOrSrT FOR THfi JTH VALUE IN 
SRCOPST 



■EXTERN TOMfi 
.ENTRY 0ERIV3 
.EXTESH PTftUPD 
WHIT 



tASSUlSi THAT ALL RC VALUES, AB VALUES, r/<0 SUl VALUES 

viu. mtz first 4 aiTi - **cih coning from 



OKPINOl 

ML - OFFSET OF CURRENT FT *4 tHTKNCI 

ON DfITt IF CF POUNO. T*2* WARY SET , 
HL - Sm FT 
OC - RIB CASE FT 
SC - A30O1E* .« 
VMVJt • lift OF CP 



H.9 
HCPT 



iCFFSIT OF HIOOLE OF OERP. 



H.O 

1NTGRC 



.lOQfT tOKFIHO 
.INSERT SFI0.ASH 
.INSERT CALCOrt 
.INSERT FPHACSRC 
. INSERT. EFFCCft 
.INSERT 0KCOA 
. INSERT ORWCOM 

,INS£RT SI oca 



PUSH 


H 


PUSH 


** 


FORM 


h 


LXI 


0,JPBUFF 


OAO 


0 


new 


SJ1 


1NX 


H 


ttov 


O.M 


soeo 


tURSP 


FOP 


M 


LXI 


O.RC3UFF 


OAO 


0 


NOV 


s.n 


vot 


M 


noj 


o.n 


SOEO 


CWRC 


POP 


K 


LXI 


OiABBUFr 


DAO 


0 


now 


e.n 


n« 


H 




o.n 


SOEO 


CURAS 


FOP 


H 


LXI 


O.THBUFF 


OAO 


0 


WW 


S.M 


lr« 


H 


now 


D.rt 
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CALL GTSIGN iCXECX 3IV« Of OERHiATtVES 



LOA ?TP 

if ( r A,is.:eaoi i'.wk 

LHLO JPTEKF 
LOEO CURS? 
ORA A 

?sac o 

If <psu,is,nca?<it> 



LHLO 
SW.0 
LHLO 
5HLD 
LHLO 

mo 

SHLO 



cwrtP 
wtemf 

ClPPC 

■CTSUP 

C'JRAR 

.\C7£nA 

CiRTH 

WIME 



11. AOO CURRENT fCOSVJ fl T TO AC COUNT, 

1 2. AOO RCTCNT TO RC COUNTS 

;3. rctcnt c~ o 

I*. MD CURPENT AWtXJ TO A8 COUCT1 
|3. AOO ABTCNT TO AB COW 5 
14. A8T0MT <— 0 

CALL UPDTI 



RET 

.SE (POSSIBLE CP SO CHECX SLOPE &ETUEZN 

1CURRNT PT rND TS1P PT 
LHLO CURSP 
LOEO SPTENP 
OftA A ' 

DSBC 0 

[HOU HL HOUS CtPPSASiCC 
LOEO MtNtC 
OR* 4 
QSflC 0 

if cpsu.is^CAJiirf) ? then smov IS CP 
lhlo srreip 

pysx « 

LHLO ICTEMP 



LHLO 


SMT I me 


SHLO 




LHLO 


CUB3P 


SKLO 


SPTEMP 


LHLO 


CURRC 


SKLO 


».CTSMP 


LHLO 


W»8 


SKLO 


-ET3V 


uo 


CMT* 


SHLO 


SMT!MC 



1 1 . S":*s ».C COUNT i 

|2, RC COINTS <— RCTCNT 

ij, rctcnt <— o 

|4. STORE AB CCVIT3 

j3. AB C0U4TS <«- A8TCNT 

I*. abtcnt <— o 
i 

CALL 'JP&T2 

I 

POP 3 
POP 3 



;*8 'ML'JC 
| RC VALUE 



SET *-* -""OPRIATS 9IT OH *C LWLUS TO JMOICA7I 
A MtMIMll 8RTH 

"HOW A.O 

Afir oph 

HQU O.A 



ipirst 4 3IT3 shoulj - ::::s 



«SET CARRY 



POP 
STC 

ret 

ELSE 

jtiOT A LARGE ENOUGH SLOPE 



Jt. AOO RCDfcRV TO RCTOlT 
i2. AOD ABOEJW TO AfiTO-fT 

CALL UP0T3 



QKMP 
ENOIF 
ELSE 

lhlo sptemp 

LOEO CURSP 
XCH3 

QRP A 

DSBC 0 



XLOCX FOR tW 



IP <PSU,I3 f NCAIirY1 1 1 THEN CURRENT »- 5NTEMP 



LHLO 


LUMP 


LHLO 


1PTEMP 

cvrrc 


SHLO 


rctenp 


LHLO 


CUPAi 


SHLO 


**T5MP 


LHLO 


CURTM 


SHLO 


SNTtWE 


CALL 


5P9T1 



CPA A 
PET 

elje iposstni c? 

LHLO JPT&V 

tOED lURSP 
OJU A 

098C- » 
IftflU HL ■ OIFF 

L&10 -1IICC 



JtfOT LARGE ENOUGH SLOPS 

UP0T3 

A 



STC 
RET 

ELSE 

CALL 
CPA 
RET 
ENOIF 
9401 F 

amr 



Til 

AOO CURRENT A«<P.C0EPV> PT to « COUNTS 

aoo RcTorr to rc conns 

RCTCNT C— 0 

AOO CURRENT A86<A80EJCV) TO A8 COUNTS 
AOO ABTCNT TO Aa COUNTS 
ABTCNT .— 0 



ORA a 








LHLO 


A8SSC0 


OSBC 


3 . 






LDA 


P.C(»Ptl8 


IF <PSU.|J.NU*SY> 


iTHW SftTQtJ 


• 13 Cr 


IF <.A.lt.MCJlO> 


LHLO 


JPTEMP 






LOEO RCIN 


PUSH 


i 






CAO 


0 


LHLO 


ICTEMP 






SHLO RC1N 


PUSH 


1 




1 






LHLO 


<8TEMP 






SLSS 




PUSH 


1 






LDEO RCOUT 


LHLO 








OAO 


0 


SHLO 


1VIALU8 






SHLO 


i RCOUT 


LHLO 


(URSP 




I 






SHLO 


iPTsrtp 






ENOIF 




LHLO 


CL'RRC 




I 






SHLO 


ICTEMP 






LHLO 


RCtll 


LHLO 


CURAB 






- LDEO 


RCTlcrfl- 


SHLO 


A8T01P 






OAO 


0 


LHLO 


CURTH 






SHLO 


RCIN 


SHLO 


WTWi 




I 


LHLO 
LOEO 


RCOUT 
RCTOCNT 


CALL 
POP 


BPOT2 

i 


lAB VALUE 




OAO 
SHLO 


0 

RCOUT 


POP 


i 


jP.C *WLUE 


I 












UCI 


H,0 


SET THS APPROPRIATE 81T ON 


RC ','ALUE 70 IKOICATE 


SHLO 


RCTICf-ir 


a mxmun flRTH 








SHLO 


RCTOOIT 


HOV 


A ,0 




i 






ORI 


ION 


tPiRST 4 BITS 3H0UL0 • 00018 | 








I.A 






LHLO 
LXA 


AOSABO 
AOIKPHS 


POP 


I 


|5M VALUE 




IF <.A 


,IS,NZER0> 



iTHSl RC : s-«ASi WITH SIM 



IPC OUT OF PHASE UlTM Stfl 



jTHDI A8 J.^mSE UITH SLM 
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} 










Ei.Sc 




I AH .'J i QF ?Hj*5c WITH SIM 




KI.OU 1VUL 


LDEO 


ABOUT 




t 




OAO 


0 




LHLO 


pcticnt 


■SHL3 aaOUT 




1ML0 


rc:n 


1 

ENOl? 






LMLO 


RCTQCMT 








SHLO 


RCOUT 


1 LXLO 


A3 IN 




I 




LOEO 


.iflTlCNT 




L''I 


H,0 


5S*0 


0 






ftCTJCNT 


1HL0 


A31M 








1 

LHLO 






I 

LHLO 


A 6 IN 


LOED 






SHLO 


ABUf^OL 


OAO 


& 




1 


ABOUT 


SHLO 


*»60UT 




LHLO 


| 






SHLO 


A9GUTU0L 








I 


• 


SHL9 






LHLO 


ABTJufF 


SM.0 


-cT'.crr 




SHLO 


A8IM 


1 

|3U1> 00 MOT SEPEP.ATS 


:mf«as; out v phase l--..s; 


1 




| AO ft TMB1 ALL 






SHLO 


ABOUT 


) 

LHLO 


Aa-isno 




1 




L0E9 


9110 




SHLO 


ASTtOJT 


0*0 


0 




SHLO 


-8T0CNT 


SM.0 


smo 




I 




1 






iSLttl 00 NOT 1 




1 






LMLO 


St 10 


LMLO 


SMi a 




SHLO 


Smyql 


loeo 


VfTCHT 




» 




OaO 


0 




t 




SHU) 


smafT 




LHLO 


SITTCNT 


1 






SHLO 


9110 


1 

LXt 


H.3 




. 1 
1 




SMLO 


Sr<TO<T 




LXt 


H.O 


SET 






SHLO 


SfTCNT 



I 
t 

UPQT2J 
1 

l> 
|2 

!«• 



STORE RC C0LHTS 

«c covers rctcnt 

RCTCNT <— 0 
STORE AO COUNTS 
AO COU.T5 <•* AOTOCT 



iJ. AffTOfT <— a 



It. AOO ABS18CDEJV1 TO RCTO<T 
1 2. ADO ABSCA80EJN) TO AETCKT 
I 



I THEN IKPHASE 



LO* RCINPHS 
IP CAtlSfftiEftO) 

LHLO A8SRC0 

LOEO RCTIO<T 

CAO 0 

SHLO KtTlGtT 
6LS£ 

LHLO A8SRCO 

LOEO RCTICNT 

OAO 0 

SHLO ICTGCNT 
BlOIF 

L?A ABIMPHB 
IP <.A,lS.r«EP0l 

LHLO A6SA60 

LOCO ABTtCHT 

OAO 0 

SHLO AITiaiT 
[LSI 

LHLO A8SABO 

LOEO A8TCCNT 

OaO 0 

SHLO ABTflCWT 
INOIP 



ISUII 00 /JOT SEPERATE IMPHASE A** OUT CP PHASE 

I . 

LHLO ABSSNO 
LOEO SHTCNT 
CmO 0 
SHLO SMTCNT 





A,H 


ml 


80H 


STA 


SnSIGN 


MOV 


B.A 


LOA 


RESIGN 


IP <.A,EQ,.e« 


XPA 


A 


ov> 




STA 


RCiNPHS 


ELSE 




SPA 


A 


STA 


RCINPHS 


EMOIP 




LOA 


SHSIGN 


now 


B .A 


LOA 


A8SION 


IF <.A.Ea..2> 


XRA 

cm 


A 


STA 


ABUtPHS 


ELSE 




XRA 


A 


STA 


A8ICIPHS 


BtQlP 




RET 





iTKOI RC INPHASE W SUM 



I THE?* AO UlPHASE U/ &n 



AN I 
STA 

5.KL0 

ANI 
STA 



ACOERV 

A,H 

BOH 

RCSICH 

ABOEftV 

A,H 

BOH 

ASSIGN 



iCUAAEHT SC OERIW VW.UE 



{CURRENT **8 OERIU 'JALUE 



OERIV USINO f P0IMT3 



LHLO SOEJ^ 



DERIVATIVE US 1MB 3 POUfTS 

SRCGFST HOLDS OFFSET TO OET /I PJOI RAVI DATA BUPPMS 

|A«5lflEi ftCYl,RCr2.RCT3,«rT-l. ABfl ,A?Y2 .ABY3,ABT4 ALREAOY JET 

LXI O.PCBUFP 
LHLO MCQFST 
OAO 0 

nov t.n 

W« K 



iCEAW 



LHLO 


3RC053T 




LXI 


O^OtUFP 




OtXO 


0 




MOV 


£,M 




n« 


H 






0 ,rt 




SOED 


A8T» 




CXI 


B.RHJZ 


lUPOATE ?0« NEXT TlhE 


LHLO 


SSCW5T 




Call 


PTRWO 




SKLO 


SRCOfST 




- <7- 


W4 • C9- 


J>»3 ♦ <7-3)*2 » (i 


LXLO 


RCT? 




LOEO 


RCYl 




ow 


A 




OS3C 


D 




WO 


H 




(MO 


M 


|lRC7«-?.CYi>»4 


PUSH 


H 




LHLO 


RCY3 




LOED 






ORA 


A 










new 


S>L 




"HOW 


0,« 




OAO 


H 


1-2 


OAO 


0 


l»3 


POP 


0 




C-AO 


0 




P'J3H 


K 




LHLO 


RCY7 




LOCO 


RCY3 




ORA. 


A 




OSBC 


o 




OAO 


(| 




POP 


P 




OAO 


o 




PUSH 


H 




LHLO 


RCY4 




' LOEO 


rcy< 




ORA 


A 




DSSC 


0 




POP 


0 




0*0 ■ 


D 




SKLO 


ftCOEJM 





j 



RARR 


L 




3RAR 


H 




RAftft 


L 




SHLO 


RCDERV 




* (?- 


Im4 ♦ <3-2>*l • •>}>•: • (4-4) 


LHID 


AffT? 




LOEO 


ABYl 




OPA 


A 




OSSC 


0 




OAO 


j! 


t ••iBY '-A3Y1 i *2 


OAO 




X '.^B f '-»»o 1 1 » •* 


PUSH 


•J 




LHLO 


A8Y3 




LOEO 


A3Y2 




OPA 






D59C 


0 




nov 


€.L 




NOV 


O.H 




OAO 






OAO 


o 




POP 






OAO 






PUSH 






LHLO 


ABY7 




LOEO 


A BY 3 




OPA 


A 




OSBC 


0 




OAO 


H 




POP 


0 




OAO. 


0 




PUSH 


H 




LHLO 


A8Y4 




LOSO 


A BY* 




ORA 


A 




osec 


0 




POJ» 


0 




OAO 


0 




SKLO 


A80IRV 




»| OIUIOS A006W 


BY 4 TO HMO 10 OU£R*LCU UHB4 


LHLO 


A9QERV 


IRAK 


H 




RARR 


L 





JRAR H 
BAR* L 
SKLO ABOttV 

,«•• 
I 

tSESET UALUC5 FOR HOT 
LHLO RCY2 
SKLO 
LHLO 
SKLO 
LHLO 
SHLO 



DO 
LHLO 
SHLO 
LHLO 
SHLO 
LHLO 
SHLO 
LHLO 
SKLO 

LHLO 
SHLO 
LHLO 
SHLO 
LHLO 
SHLO 
LHLO 
SHLO 
LHLO 
SHLD 
LHLO 
SHLO 
LHLO 
SHLO 
LHLO 
SHLO 



LHLO 
LDEO 
OAO 
SHLO 



RCYt 
RCY3 
KCY2 
RCY4 
RCY3 
RCY3 
RCY4 
flCYi 
ACYS 
8CY7 
RCY4 
RCTS 
RCY7 
RCYf 

rcys 

ABYJ 
ABYI 
A8Y3 
A8Y2 
ABY4 
A8Y1 
49Y3 
A0Y4 
ABYi 
A BY 3 
A8Y7 
A8Y4 
A8YS 
A9Y7 
ABT» 
A8TI 



RCDERV 
ABOERV 
0 

smdew 



iCCMPUTE ABSOLUTE 'JAIUE Of RCOERU MiQ ABOERVI, Ai<0 310E3V 
LHLO ACQBN 
nou A.H 
ANt BOH 

IP <.A,|S,MEItO> (THEM P.COERV < 0 



MOV 

cm 

new 

HOV 
CW 
MOV 
»« 
SHLO 

£L3£ 
SHLO 

EM01F 

LHLO 
MOV 
ANt 

nov 
OiA 
MOV 

hov 

OIA 

now 
trot 

SHLO 
ELSE 

SHLO 
8401 P 

LHLO 

MOM 

AMI 

IP ? .A t 
MOV 

aw 

MOV 
MOV 
CMA 
MCW 
1NX 
SHLO 
ELSE 
SHLO 



RET 



L,A 
M.H 

H.A 
M 

ABSPXO 



ABOERV 
A.H 

:sjizej)o> 

•A.L 

t- f A 

A,H 

H.A 
H 

ABSAGO 



2M0ERV 
A.H 
iQH 

1SJ4ZES0I 
A,L 

L,A 
A.H 

M|A 

H 

ABSSMO 
, ABSSMO 



iTHOI 480ESU € 0 



|TH£N 3H0EJW t 0 



—26- 



I SEE If *T LEAST 10 POINTS tH RIMO BUFFER 
I 

LHLO BIPT 
LXl 0,20 
QPA A 

osac o 

IF '.P3U,tS f CARPt> JTHBI < 10 FT1 

3TC 
EL5E 



j SET OP IHIT UALUES |N RCY1 ,PCY2,flCYT .*CY4 









WW 


E,M 




tr« 


H 




ww 


0,n 




30E0 


A CM 




iro( 


M 




tiov 


E,rt 


l 


!r« 


H 




new 


o.rt 




SOEO 


RCY2 




u« 


H 




ww 


E..1 


i 


lf« 


H 




WW 


O.M 




JOED 


«CY3 




Ira 


H 




WW 


e,h 


1 


It* 


H" 




new 


0,H 




soco 


RCY4 




l*a 


H 




IW 


£,« 


1 


tt« 


H 




WW 


D.rt 




SDEO 


RCY3 




tl« 


M 




WW 


5,rt 


f 


ir<x 


H 




new 


O.H 




SGSO 


RCYi 







n 


WW 


CM 


tt'EO 


RCY7 


!ta 


H 


rttw 


E.M 


*r« 


N 




D.M 




ACM 


LI I 


M.AS3U 


WW 




iru 


H 






sc-so 


AOYI 


:mx 


H 


nov 


E.M 


irot 


H 


rw 




S6ED 


-3Y2 




H 


M0\? 




:t« 


M 


ww 


O.M 


SOED 


A8Y3 


!f« 


H 


WW 




:nx 


H 


WW 


D,rt 




A3Y4 


ua 


M 


WW 


E,M 


INX 


M 


WW 


o,n 


SOCO 


ASY3 


tree 


H 


WW 


S.M 


IfOC 


M 


WW 


0,M 


SOED 


ABY* 


IW 


M" 


WW 


E,M 


:r« 


M 


WW 


D.M 



SOU 


AiYP 


HOC 


H 


WW 


E* 


tret 


M 


WW 




WED 




L<! 


h.:4 


s-w3 


sacv;^ 


ut 


M.t 


SW.0 


P.SPT 


■jc: 


H.9 




UiTCF* 


CPA 




EWH? 




RET 





.INSERT FPmC.iRC 
.INSERT SP90 .ASH 
.INSERT CALCOtl 
.INSERT LPJCOM 

.itnvtr 3vca* 

8 .ExTEAl PPTIKE 

.:nsr -mloe :n iwfim * #ECSW 

FIM!T . 

iimr* v -:::-.£ :* .extesm aouio 

#e<7Frf pgffr^ 



4 n*ts routine pawn -hi :r.TA wwtii 

I 

i iw s? ;«vi? 

i 

i 

i 

I THERE API OfWCr- -I 

I 

I 

b»i?mli 

rASStne $f f-rr :? ;»i *« a<m T0 TWi lwrai 
ta Far 

r>n-T r**E fW<0 COPr 



lOFPSET FOR SP.flOB 

|T'-4| i IS :i?0 liHSN 

:i:ca i time tkr'j u:op 



LHLO 


?W04T 


OCX 


H 


5LAP. 


L 


fiAU? 


■H 


1HLO 


OfT 


LHI 




u'.l 




<KLO 


X1PTR 


UI 


H.O 


SXLD 


CPPTR |{ 


XRA 


A 


STA 


ptp t : 



XRA A 
57A KROFLO 
1 rwi A. 10 

STA LCMT 
I ONLY HAKE HARD COPY 
CALL LP CM 
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CALL TXTYP 

CALL PRTlME 

ppm HEAO.HWT 

CALL LPOFP 



{GET TH1 0EL7A PGR SPiJCfiSTLR 



U! 
QAO 
MOW 
UK 

JOfiO 



cpptr 

0.5?rwx. 
Cr 

S.M 
H 

SPVALUB 



LHLO 
LDA 



CPP7R 
PTF 

IF (.A, I S.N2 £9Q| 

rra a 



iTHOi « thru locp 



340 IF 
LI I 
0AO 
WJ 

ir« 

MOV 

LKLO 
QJtA 
OSSC 
SHLO 
FILA 
FLTT 
FLOS 
fttUL 
FSTA 



I 

;r«U GET' SUM DELTA UAC'jE 
I 



0 

S.K 

ri 

|C« - M!N SP °7 
SP**LU£ ;HL " MAX SP PT 
A 
0 

spoelt jsp oelta 

SPOELT 
CCS 

spoelt ;nou urrvns of ml 



LHLO 



WW 



SQEO 



CPP7R 

o.Aarvw 
o* 

M 

0.H 

AENALUS 



LHLO CPPTR 



IF <.A,IS,N«*0> |THEM EVEN » THRU LOOP 
J NX H 
lf« H 

ENOfP 

LXt O.AfiMIN 



0A0 

now 
ira 

MOV 

LHLO 
OPA 

one 

"SHLO 
FILA 
PLOT 
FL23 
FMUL 
FSTA 



0 

S..M 
H 

0.N 

»0£ » nm sun pt 

A*MLUE iHL - MAX SU1 PT 
0 

ABOELT j«UT1 tELTA IMLUE 
A8CF.7 

CCS 

A60EL7 jr;0U IN M L 



;flOU GET XVALUE '>L*VS»« 
LOOR 'X2PTB 
FOUL 

FSTA xval 

x:ft? 

I 

1 CNLY MAKE HAKO CCPf 
CALL L s ON 
LOA PTF 
IF '..A.H,2iP«, 

Ltt H.I LAB 
ELSE 

L<1 H.&LAB 

enoif 

CALL 
FPSTI 
CALL 



t 



;7HEN IHSP 



Txrr* 

&SLT|DELT?T 
LFOfF 



LOA 

\f <.A, 



PTF 
jlS,N2CR0> 
LHLO CPPTR 
»« h 
ir« h 

WLO CPPTR 
ENOIF 

LCA FTP 
CMA 

STA PTF 



;THEN EVEN 4 THRU LOOP 



OSXZ ONT.LOOPt 



I 

LPUi 



fCALUCULATE A*fl> PRINT OUT THE MEAN, 3T0, ST ERROR, AND X SIROR 



602 1 
I 



FLOS 


X3UM 


FLOA 


Faff 


FBI'/ 




FSTA 


MEAN 


FLOS 


XSU1 


*L0A 


XSU1 


PHUL 




FATS 




FLOA 


FOiT 


row 




FLOfl 


XXSLM 


FSUS 
MT1 




FLOA 


FCNT 


row 




FSOR 




FSTA 


STPV 


PLfiA- 


FOIT 


ricm 




FLOS 


STCV 


POJV 




PSTA 


STEP.*, 


FL08 


MEAN 


PF3A 


: 


FSUS 




MT3 




FFOA 


too 


*#1UL 




FSTA 


PCERR 


FLOA 


PCERR 


PASS 




FATS 




FFOA 


1 


FSUS 




FSTA 


FTEMP 


FT ST 


FTEhF.LT 


IF (PSU 


,t£,Z£R0) 


;pca 


a 


PSTA 


PCERR 


ENOIP 





l THEN ABS<cRRGfl) < I 



(CNLT MAKE HARD COPY 
CALL LP ON 
FPRN STATS, STPT 

I OUTPUT SEVERAL LINE PESOS 
LXt H.CRLFS 
CALL TXTTP 
CALL LPOFP 



RET 



tTATIi .AKI3 

m«»« sun/SP 
St &r 5UV5P 
X ERROR 



• 303 
■ 30 J 
- 303 

• sot ' 



STFT i ,UORO ^^EAf^,5TDV , i7£a?.»C£5R 



•ASCI 3 
.ASCI 3 



.ASCIS '303 



ILAfll 
ELASt 
I 

I 

OELTi 
1 

:r_TP^» 

WJPTi 



HEAOt .ASCI 3 ' 

SU1 SF 
CRLPSi .ASCIS ' 



303 



ft) 

-*BOELT, SPOILT, 



.EXTERN PPT 
.LOC PST 



FTEMP t ,31_X8 
I 

SPDCLTi 
fiCOELT) 
fJPTHi ,8L)(8 
X1PTS i .BUI 
ABOELT l 



. 9LXB 
. SLXB 
2 
2 

.8LKB 
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I 

MEtWl ,81X1 4 
STWl .BLXB i 
STEM I .8UCR 4 
PCERfil »3UCB 4 
LQOPCKTi .JLKO 
4 

.RELOC 



IF <.A,IS,M2ERa> 
LDEP SfMALUS 
jriP 1.2001 

ENOIF 

LDED ABVALUe 
wj m»£ 

IKX H 

mcw rt.o 

ENOtP 
LDA FTP 
CMA 

STA PTF 
ENOIF 



SXIP3I 
I 

EXITi 
I 



|THEN USINO spirobao 
I SUN VALUE 



CALL CSTS 
IP <PSU.IS.N2ER0> 
CALL C IMP 

if i.a.eq.cr) |if carriage return 

jmp clkstp 
emdif 

EMOIF 



X*A 
STA 



POP 
POP 



H 
0 
8 



I 
I 
t 

GLKTIKi 
I 



LKLD 
IKX 
SHLP 
LOEO 
CALL 



ELPTTt 
SPREO 
TDKS 



IF <PSU,I8,2EJ10> 



I THEN 1 SEC04 



LXt 

SHLO 

LKLO 

IKX 

SHLD 

XXA 

aw 

STA 
LXt 



H,0 
ELPTM 

secomo* 
H 

SECONDS 
A 



S£CFU 

■MS. 

ip (rsu,is,zno> 
LXl h.o 

SHLO SECONDS 
LHLD CUmiN 
U« H 

JHLD ILPKIM 
ENDIF 
SO IP 
RET 



| THEN I NIWTE 



I. 
I 
I 

SAMPLE l 
I 

I 



IF < .A, IS, ZERO) I THEM USIHO SPIROMETER 
LHLD SMAO l SUN VALUE 
AiH 



CMA 
ANJ 

nov 
new 

CMA 

MCW 

SHLO 

LHLD 

LXl 

CALL 



LKLD 
HW 

ow 

AMI 

MOW 
MCW 

cm 
new 

SHLO 
LDA 



OFH 
H,A 
A,L 

L.A 
DATA 

ript 

O.ASBUFF 



SFAO 
A ,H 

OFH 

H,A 

A,L 
L|A 

Data 



j SPIROMETER VALUE 



IP <.A,IS,HZ£R0) 



THEM iBPUTTmO PNS'J1QTaCH-SO INTEGRATE 



|NOTEt*«»« ASiUIE 8 FLCU IS AT 7FFH 
LKLD DATA 
LXl 0.7FFH 
ORA A 

DS8C D 
iDIVlOB BY 8 CSrGNEO SHIFT R10HT> 
(CHANGE TO SHIFT ONLY 2 TIMES 
I23YTES PER INSTRUCTION 

NOP 



HOP 
" NOP 
1 SRAR H 
| RARX L 

SMA H 

KARA L 

SRAR H 

AARR L 

LDED PNStn 

OAO 0 

SHLO FNSUH 
(ADO OFFST SO ALL • > 0 

LX! O.80OH 

OAO d 

SHLO DATA 
CNOIP 

CALL CKFLIP 
LHLD RIFT 
LXl 0.5PBUFF 
CALL FRNO 

I 

ELSE lUSINQ. FIXED VOLUME 

; STORE SUM CAT* IN SPOUFP SO U ILL BE USED TO PICK OFF SHEATHS 

1 LHLD SNAP i SUN VALUE 

MOV A,H 

cm 

AMI OFH 

MOV H,A 

MOV A,L 
CMA 

MOV L,A 

SHLO DATA 

LHLO RIFT 

LXl O.SPBUFF 

CALL PRM9 

I 

(PILL AIBUFF UITH ZEJIOES 

LXl H f 0 

SHLO DATA 

LHLD RIFT 

LXl 0 ,A8flUFF 
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JfUL RCBUfF UlTH ZEROES 
LXl H,0 
5HL0 DATA 

lhlo ni?T 

CALL PRNO - 



INCREMENT RIPT FOR NEXT TlHE 



LXU> 


TIME 


I NX 


H 


SKLD 


TtMS 


5HL0 


"OATA 


LHU> 


RIPT 


LXl 


O r TTiauPf 


CAUL 


PRNQ 


LHLfl 


RIPT 


SHLD 


QOR1PT 


LXl 


B.R91IB 


LXLO 


RIPT 


CALL 


PTRUPO 


SKLO 


RIPT 


LM 


URAFF 


IF {.A 


IS, ZERO) |SEE IF RIPt RESET TO 0 


LXl 


D,0 


. LHLO 


RIPT 


CALL 


" TDH£ 


IP <PSJ,1S,2ER0> 



ml A,0PFM 
STA URAPP 
D40IP 
Bit) IF 
RCT, 



CXFLIPi 
4 

iCHECK IF !<EED TO FLIP 
Uft FLIFV 
IP < .A, I3,N2£R0> 



<*az,**ir#*s. t LHitjrsix^iiM, gonitis 
z © ftR» ©*** L nxaott i * tic » L-T^tt S 

t»<0T?*D. »iE3ft*:«*uHKd nsfe©TM*fc<* c© 
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IPC (4)1 JkfilS 3/08 
U.S. CI. 111/721. 71S 



0.5. 121/714, 721, 725 



U«, A. 4,373,314 (WXTSQB) IS F«Sn»ry 1983 J 1 
S«t» th« «ntlr« dooi»*nt. 

a». a» 4,308.871 (wxrso* rr «,) OJ J*na*zy 

1»B1. tU- «ntlr« doctiMnt. 

OS, A. 4,2*7.845 (HOBCBTSO* CT At) 19 *•* 
1981, «rto« 2. lln" 31-32. 



25 K«rch 19*7 


1 5 APR 587 


IS A/OS 





UBf& 6 2 3M$S*«S& 5 0 1 3 2 3^ C#^l© 63- 
50 2563^, nSfQ6 3^ 9^2 9 0^^ 



Int. a. 



sewn 



A61D 5/08 



783 1-40 



^ mm je 



* e w 



1 . ^«.<0^/K 

«»6 2<r-ttttW»5 0 1 3 2 3 *} 



2. fcmi^fcf* 

IF. tTr *W. Vci'JjT J3IJ9-I43Z 7<7:, 



ft » \ ¥530 

'itltt ( 0 B ) 3 B S - 0 7 I 8 ( 
£ £ ftJS J: C fi S 2 4 ) V H 



0 ft 



MiEwtttt 




-co am Us tarnu m#»>*# 
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31 2 3 f?<» l^/Kt * i * T/ji f J uifiUt 

ar 2 h io r w m .i * 1'mw.i u ir h: * *. 

<5)PIM»3t 31 I 2rtU4ii'T:, 

31 I 0 - I I If© I * Ml Rfttt* + « t i» 



m i » - 2 i ft© r t & <*otj* 

*. j *m»*4. 

3i 2 - 3 fr «o r Ji 3 xS p o a I * r * (U ill J I- 

it**. 

Jll 6-1 7fr<o r»RBttMl=J:ot W 

*<£4. j * rdi/m^wn'****^***'- 
a. 



m 2 o if* f £fc )K s n. j * r a * ft * i u ir 

iK *" 4 - 

# 2 I !; to I Ik 32 * t\ h. *tz JIJ fc» £ ft * . J 

* r n'tft s ft /.: *t> -C & 4 , j u if £ 1* 4 . 

31 I 2 {/ » I -Ml ftii 44M.* h * . I 4r f W IN 

i5:iA«tH.' i u ir m 1* « . 

51 I 6 — I 7 tr O f Ul TO r - "/ ^ A J * r - 

4. 

jb i 2f/« r a tuij * ra kite 
it * * , 



it©l3W4iJ«t* C 4j6«Tf*tti»I till. * 2 



o w « w * t st* r * n * » ** » 

5 y > wua u s Miaa w « w 

« *> flj i". * t -i -5 .9-* i£££izzA 

a a? 9 * «■ ® * * ft ° ^ 



-/ 1 a . a IM XJIfc&ltfl Aft «L*.^L 
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X r -, * ( > ) - < c ) 4:ttDg 1-X^?^_ 

gn£«o«A<rr atH i . o*wtt* a jt^ 
ft * * * k c « * ^1 



a* i . o h »tt softie uiTrgB^Aflj^iiril 
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